Help for this page
$oldtime = $oldtime - $ctime->tzoffset;
print "The old time is $oldtime\n";
print "The old time is ", $oldtime + $ctime->tzoffset, "\n";