use Time::Local;
 my $time = timegm( $sec, $min, $hours, $mday, $mon, $year );