#!/usr/bin/perl -w

use Benchmark;

my $start_time = new Benchmark;

$line++ while (<>);   # Count number of lines in the file(s)

my $end_time = new Benchmark;
my $difference = timediff($end_time, $start_time);

print ("Counted $line lines\n");
print ("It took ", timestr($difference), "\n");

##</code><code>##

[sk]% bench *.csv

Counted 900285 lines
It took  2 wallclock secs ( 1.88 usr +  0.27 sys =  2.15 CPU)