require "timelocal.pl";
$test = time();
print "\n$test\n";
@aa = gmtime($test);
for $i (@aa){
print "$i\n";
}
$newtime = &timelocal($aa[0],$aa[1],$aa[2],$aa[3],$aa[4],$aa[5]);
$newtesttime = &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";