Select Code to Download

sub doPad {
    my ($val, $len) = @_;
...
        doPad($sec, 2) . "\n";

}

sub getDateTime {
    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time());
...
    return sprintf "%02d-%02d-%d %02d:%02d:%02d\n",
                   $mday, $mon+1, $year+1900, $hour, $min, $sec;
}

use POSIX ();
sub getDateTime {
    return POSIX::strftime("%d-%m-%Y %H:%M:%S\n", localtime(time) );
}