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/')},
              });