($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =  gmtime(time);
my $gm_time = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);