anchor.diff:  -define(FPROF_SERVER, false).
   -define(EPROF_CLIENT, false).
   -define(EPROF_SERVER, false).
  --define(PERCEPT_SERVER, false).
   
   %% Current numbers gives roughly a testcase per minute on todays hardware..
   
  
positive.code:     receive quit ->
  	    ?FPROF_SERVER andalso stop_profile(fprof, "test_server_res.fprof"),
  	    ?EPROF_SERVER andalso stop_profile(eprof, "test_server_res.eprof"),
  	    ?PERCEPT_SERVER andalso stop_profile(percept, "/tmp/ssl_server.percept"),
  	    ok
      after 0 ->
  	    case ssl:transport_accept(LSocket, 2000) of
  
negative.code:     fprof:trace([start, {procs, Procs}]),
      io:format("(F)Profiling ...",[]).
  
  stop_profile(eprof, File) ->
      profiling_stopped = eprof:stop_profiling(),
      eprof:log(File),
  