<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">require "timelocal.pl";
$test = time();
print "\n$test\n";
@aa = gmtime($test);
for $i (@aa){
print "$i\n";
}

$newtime =  &amp;timelocal($aa[0],$aa[1],$aa[2],$aa[3],$aa[4],$aa[5]);
$newtesttime =  &amp;timegm($aa[0],$aa[1],$aa[2],$aa[3],$aa[4],$aa[5]);
print "\n$newtime\n";
@aa = gmtime($newtime);
for $i (@aa){
print "$i\n";

}
print "\n$newtesttime";
</pre></body></html>