#!/usr/bin/perl
use Date::Manip;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
while {
$time_val="$hour:$min:$sec";
if ($time_val = "01:01:00") {
./abc.sh PB
}
if ($time_val =  "01:02:00") {
./abc.sh AB
}
}