#!/bin/perl

    # Packages to import functions
use Date::DateCalc qw(:all);
use Date::Calc;
use FileHandle;

    # Name of your i/p file
my $inpFile = "yourInp.txt";

    # Open file for reading
open FF, "<$inpFile";
while (<FF>) {
    chomp $_;
    my $timeDiff;

    # Get the server current date and time
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
    $year += 1900;
    $mon  += 1;

    # Get the current line's date and time
    my ( $cYear, $cYday, $cTime ) = split(/\,/,$_);
    my $hr_s;
    my $min_s;
    if ( $cTime < 1000 ) {
        $hr_s=substr($cTime,0,1);
        $min_s=substr($cTime,1,2);
    } else {
        $hr_s=substr($cTime,0,2);
        $min_s=substr($cTime,2,2);
    }

    my $startTimeMin=$hr_s*60 + $min_s;
    my $endTimeMin=$hour*60 + $min;

    # Calculate date diff (server date - current line date)
    # and calculate timediff only if it is greater then 0
    my $ydayDiff = $yday - $cYday;
    $timeDiff=$endTimeMin - $startTimeMin if ($ydayDiff > 0);

    # Mail if timediff is greater then 5
    my $cmd = "mailx -s \"subject\" mailid@server.com";
    system("$cmd") if ($timeDiff > 5);
}
close FF;