Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use warnings;
my ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) = localtime(time()- 24*60*60 );
$year += 1900;
$mon += 1;
if( $mon < 9 ){
        $mon = "0" . $mon;
}
if( $mday < 9 ){
        $mday = "0" . $mday;
}
my $date = "$year$mon$mday$hour$min$sec";
my $file='/home/amino/monitorFile';
open(INFO,$file);
my @lines=<INFO>;
close(INFO);
foreach $line (@lines)
{
my @field=split(/ /,$line);
print "$field[1]\n";
}

TODAY=$(date +%Y%m%d)
if grep $TODAY yourlogfile
then
   echo "Found"
else
   echo "not found"
fi