sub GetDateAndTime {
    local ($sec, $min, $hour, $mday, $mon);
    local($year, $wday, $yday, $isdst);
    local ($ampm, $currentdatetime);

    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
    localtime(time);
    $mon++;
    $ampm = "AM";
    $ampm = "PM" if ($hour > 11);
    $hour = $hour - 12 if ($hour > 12);
    if (length($min) == 1) {
        $min = "0" . $min;
    }

    $year=$year+1900;

    "$mon/$mday/$year $hour:$min $ampm"; 
} # End of GetDateAndTime