use strict;
use warnings;
use Time::Local;

my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) 
        = localtime(time);

my $time = time;
my $TIME = timelocal($sec, $min, $hour, $day, $mon, $year);

print "$time = $TIME\n";