####################### GET TIME AND DATE FOR IN FORM
my ($time, $date);
sub in_time_date ($$$$$$$){
my ($min, $hour, $day, $month, $year, $calc_year, $calc_month) = @_;
($min, $hour, $day, $month, $year) = (localtime)[1,2,3,4,5];
($calc_year, $calc_month);
$calc_year        = $year+1900;
$calc_month     = $month+1;
$date = "$calc_year-$calc_month-$day";
$time = sprintf("%d:%02d", $hour,$min);
}
####################### END GET TIME AND DATE FOR IN FORM

in_time_date($min, $hour, $day, $month, $year, $calc_year, $calc_month);