use Time::Local;
#!/usr/bin/perluse Time::Local;$time = timelocal($sec, $min, $hour, $day, $mon, $year);$time = timegm ($sec, $min, $hour, $day, $mon, $year);1;