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