Help for this page

Select Code to Download

Select or download this

for my $val ( qw(1 5 10 24) ) {

...
    print "\n";

}

Select or download this

Add 1 hour ...
        Before: 1096600000 - Fri Oct  1 06:06:40 2004
...
        After: 1096686400 - Sat Oct  2 06:06:40 2004
        Before: 1099170000 - Sun Oct 31 00:00:00 2004
        After: 1099256400 - Sun Oct 31 23:00:00 2004