# get current time
my $time = time;

# get seconds, minutes, and hours since midnight
my ($sec, $min, $hr) = (gmtime($time))[0..2];

# subtract the sum of time since midnight
$time -= ($hr * 3600 + $min * 60 + $sec);

print $time, "\n";
[download]