Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    $now = '00:00:00';
    for (0..60*60*24+5) {
    ...
        return "$hour:$min:$sec";
    }