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";