my $time = mktime($ts, $tm, $th, $dd, $dm, $dy);
print "Time: '$time' ($ts/$tm/$th/$dd/$dm/$dy)<br>";
($ts, $tm, $th, $dd, $dm, $dy) = (localtime($time))[0..5];
print "Time: '$time' ($ts/$tm/$th/$dd/$dm/$dy)<br>";