$oldtime = $oldtime - $ctime->tzoffset;

##</code><code>##

print "The old time is $oldtime\n";

##</code><code>##

print "The old time is ", $oldtime + $ctime->tzoffset, "\n";