use DateTime;
my $date = DateTime->new( year   => 2007,
                          month  => 8,
                          day    => 25,
                          hour   => 23,
                          minute => 59,
                          second => 59,
                          time_zone => 'UTC',
                        );



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

$date->add( hours => 36 );

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