my $frac = shift;
my $hour = ($frac * 24) % 24;
my $minute = (($frac * 24) - $hour) * 60;
my $time = sprintf "%.2d:%.2d", $hour, $minute;