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