#!/usr/bin/env perl
use strict;
use warnings;
use Time::HiRes qw(gettimeofday tv_interval);
die("Usage: ./test.pl regexp file.in\n") if (@ARGV == 0);
my $re = shift(@ARGV);
my $start_time = [gettimeofday];
while (<>) {
chomp;
print "$.:", $_, "\n" if (/$re/);
}
my $interval=tv_interval($start_time,[gettimeofday]);
print "It takes time : $interval seconds\n";