Select Code to Download

#!/usr/bin/perl

...
    $sec = '0' . $sec if ($sec<10);
    return qq|$hour:$min:$sec|;
}

#!/usr/bin/perl

...
    $sec = '0' . $sec if ($sec<10);
    return qq|$hour:$min:$sec|;
}