my ($h, $m, $s) = split /:/, $your_time_goes_here;

my $secs = $s + ($m * 60) + ($h * 60 * 60);