#!/usr/bin/perl -w

use Time::HiRes qw(clock); # version 1.90

my $start_time = clock();

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

my $end_time = clock();
my $difference = $end_time - $start_time;

print ("It took ", $difference, " second\n");