#!/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");