use strict;
use Time::Local;

my $time = "08:30:10";

my ($dy,$mo,$yr) = (localtime)[3..5];
my ($hr,$mi,$se) = split(/:/,$time);
my $utime = timelocal( $se, $mi, $hr, $dy, $mo, $yr );
print $utime,$/;

# update: forgot to add the confirmation:
print scalar localtime( $utime ),$/;