Select Code to Download

sub get_date {
    use Time::gmtime;
...
    $tm->min,
    $tm->sec;
}

sub epoch {
    use Time::Local;
...
   my ($tmp_year,$tmp_month,$tmp_day,$tmp_hour,$tmp_min,$tmp_sec) = un
+pack('a4xa2xa2xa2xa2xa2',$time);
  return timegm($tmp_sec,$tmp_min,$tmp_hour,$tmp_day,$tmp_month-1,$tmp
+_year-1900);
}