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

    print "Add $val hour ...\n";

    for my $date (qw(1096600000 1099170000) ) {
        print "\tBefore: $date - ".localtime($date)."\n";

        print "\tAfter: ".($date+$val*3600)." - ".localtime($date+$val*3600)."\n";

    }

    print "\n";

}

##</code><code>##

Add 1 hour ...
        Before: 1096600000 - Fri Oct  1 06:06:40 2004
        After: 1096603600 - Fri Oct  1 07:06:40 2004
        Before: 1099170000 - Sun Oct 31 00:00:00 2004
        After: 1099173600 - Sun Oct 31 01:00:00 2004

Add 5 hour ...
        Before: 1096600000 - Fri Oct  1 06:06:40 2004
        After: 1096618000 - Fri Oct  1 11:06:40 2004
        Before: 1099170000 - Sun Oct 31 00:00:00 2004
        After: 1099188000 - Sun Oct 31 04:00:00 2004

Add 10 hour ...
        Before: 1096600000 - Fri Oct  1 06:06:40 2004
        After: 1096636000 - Fri Oct  1 16:06:40 2004
        Before: 1099170000 - Sun Oct 31 00:00:00 2004
        After: 1099206000 - Sun Oct 31 09:00:00 2004

Add 24 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