sub date_time {
    my($s1) = @_;
    my($mon,$year);
   ($mon,$year) = (gmtime($s1))[4,5];
    $mon++;
    if ($year < 39) { $year = "20$year" }
    elsif ($year > 99 && $year < 2000) { $year = 2000 + ( $year - 100 ) }
    elsif ($year > 38) { $year = "19$year" }
   return ($mon,$year);
}