parsedate($hour.":".$min.":00")

##</code><code>##

my $now = time;
$now -= ($now % 60);