Time::ParseDate is great #!/usr/bin/perl use Time::ParseDate; my $time = "08:30:12"; my $seconds = parsedate("today $time");