sub fmin_sec {
    my $sec = shift;
    sprintf '%01d:%02d', $sec / 60, $sec % 60;
}