sub timeshift {

my $time = shift;


(my $hour, my $min,my $sec) = split(/\:/, $time);

my $hsecs = $hour * 3600;
my $msec = $min * 60;

my $esecs = ($hsecs + $msec + $sec);

return $esecs;
}