sub get_date {
    use Time::gmtime;
    my $tm = gmtime;

    return sprintf "%4.4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d",
    $tm->year+1900,
    ($tm->mon)+1,
    $tm->mday,
    $tm->hour,
    $tm->min,
    $tm->sec;
}

##</code><code>##

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);
}