Shell Programming and Scripting

#!/usr/bin/perl
use Time::Local;
$service="TCPIPSCH";
$PID_SERVICE=`ps -ef | grep -w $service | grep -v grep | awk '{print \$2}'`;
if ($PID_SERVICE == ''){
        print "$service down\n";
        exit;
}
       print"PID_SERVICE=".$PID_SERVICE;
$PID_PATH=sprintf("/proc/%d",$PID_SERVICE);
       print "PID_PATH=".$PID_PATH."\n";
@d=localtime((stat($PID_PATH))[9]);
#       printf "Localtime PID %4d/%02d/%02d %02d:%02d:%02d\n", $d[5]+1900,$d[4]+1,$d[3],$d[2],$d[1],$d[0];
$ACTUAL_UNIX_TIME=time();
$sec=$d[0];
$min=$d[1];
$hours=$d[2];
$day=$d[3];
$month=$d[4]+1;
$year=$d[5]+1900;

$sec=27;
$min=40;
$hours=11;
$day=29;
$month=01;
$year=2010;


$PID_TIME = timelocal($sec,$min,$hours,$day,$month,$year);
# replace 'timelocal' with 'timegm' if your input date is GMT/UTC

print "ACTUAL UNIX TIME = \t".$ACTUAL_UNIX_TIME."\n";
print "        PID_TIME = \t".$PID_TIME."\n";
$DELTA=$ACTUAL_UNIX_TIME-$PID_TIME;
print "           DELTA = \t".$DELTA." seconds\n";
if ($DELTA > 300) {
        print "No restart detected!\n";
} else {
        print "$service restarted!\n";
}

Day '29' out of range 1..28 at ./getpidtime.pl line 30