sub fix_time {
    my $time = shift;
    $time =~ s/\s(\d:\d\d)$/ 0$1/;
    return $time;
}