Select Code to Download

#!/usr/bin/perl -w

...

print "\n>>>>>>>>>>>>>>>>>>>>and now for the benchmark\n";
use Benchmark;
timethese(50, { 'real_HEAD' => sub { real_HEAD('http://japhy.perlmonk.
+org/book/')},
                'HEAD' => sub { HEAD('http://japhy.perlmonk.org/book/'
+)},
              });

 ........ output from the HEAD .....
      HEAD: 140 wallclock secs (139.73 usr +  0.00 sys = 139.73 CPU) @
+  0.36/s (n=50)
 ........ output from the HEAD .....
 real_HEAD: 208 wallclock secs (208.00 usr +  0.00 sys = 208.00 CPU) @
+  0.24/s (n=50)