sub epoch {
    use Time::Local;
    my $time = shift();
   my ($tmp_year,$tmp_month,$tmp_day,$tmp_hour,$tmp_min,$tmp_sec) = unpack('a4xa2xa2xa2xa2xa2',$time);
  return timegm($tmp_sec,$tmp_min,$tmp_hour,$tmp_day,$tmp_month-1,$tmp_year-1900);
}