#!/usr/bin/perl

use strict;

print get_time() ."\n";

	my $count = 0;
	
	my $pr_regex= "program.jsp?id=1";
	$pr_regex = qr/\Q$pr_regex\E/oi;
	#open(LOGFILE,"file.txt");
	@ARGV = qw(file.txt);
	close ARGV;

	#while (<LOGFILE>) {
	while (<>) {
			$count ++ if m/$pr_regex/oi;
	}
		
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|;
}