Help for this page
sub get_first { ... my $end_time=join ' ', $month,$day,$year,$time; return $end_time; }
$rfmain_beg=&get_first($rfmain[0]); $rfmain_end=&get_last($rfmain[$#rfmain]);