open(LOGFILE,"<", "access.log")or die"Could not open log file.";
my @logfile = <LOGFILE>
my $hits = grep /$yesterday/, @logfile;