Select Code to Download

use DateTime;
my $date = DateTime->new( year   => 2007,
...
$date->add( hours => 36 );

print $date->ymd, "\t", $date->hms, "\n";

2007-08-25      23:59:59
2007-08-27      11:59:59