Select Code to Download

#!/usr/bin/perl
# benchmark_test_strict.pl
...
print "difference (t0, t1)\n";
print "===================\n";
print timestr($td), "\n\n";

[fuzzy@jason fuzzy]$ perl benchmark_test_strict.pl 

...
difference (t0, t1)
===================
 0 wallclock secs ( 0.01 usr +  0.00 sys =  0.01 CPU)

#!/usr/bin/perl
# benchmark_test.pl
...
print "difference (t0, t1)\n";
print "===================\n";
print timestr($td), "\n\n";

[fuzzy@jason fuzzy]$ perl benchmark_test.pl 

...
difference (t0, t1)
===================
 1 wallclock secs (-0.38 usr + -0.01 sys = -0.39 CPU)