#!/usr/bin/perl

use strict;

print get_time() ."\n";

	my $count = 0;
	
	my $pr_regex= "program.jsp?id=1";
	$count = `grep -c '$pr_regex' file.txt`;
		
		
print qq|$count\n|;	
print "\n" .get_time() ."\n";
exit;
	
	
sub get_time {
	my ($sec,$min,$hour,@junk) = localtime(time);
	$min = '0' . $min if ($min<10);
	$sec = '0' . $sec if ($sec<10);
	return qq|$hour:$min:$sec|;
}