#!/usr/bin/perl -w
use strict;
use Benchmark;

#file: jimmy.pl
timethese (5,
   { jimmy => 
     q{
        jimmy();
      },
   }
);

sub jimmy
{
   open (IN,  '<', "b")         or die;
   open (OUT, '>', "/dev/null") or die;
   my $numlines =0;

   while (<IN>)
   {
      next if /^\s+$/;      # skip blank lines
      my @words = split;
      next if (@words <4);  # something strange here
                            # happens just a very, very few times but 
                            # there is a flaw in "b" file generation                         
      print OUT @words[2,3], "\n";
      $numlines++;
   }

   print "num lines read = $numlines\n";
};
__END__
[prompt]$ jimmy.pl
Benchmark: timing 5 iterations of jimmy...
num lines read = 299970
num lines read = 299970
num lines read = 299970
num lines read = 299970
num lines read = 299970
     jimmy:  6 wallclock secs ( 6.29 usr +  0.05 sys =  6.34 CPU) @  0.79/s (n=5)