Select Code to Download

# Acquire the Local Time Array
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time
+);
...
$RealYear = substr($year, 1);
# This created $TimeStampDate into a format found in a DIR command in 
+DOS.  Ex. 03/28/01.
$TimeStampDate = "$Month". "/". "$mday" . "/" . "$RealYear";

sub CreateCmdFile {

...
        close(servercmd);
        system("$FileName");
}

sub FindMatchingDates {
        $ServerDirectoryFile = 'D:\\Perl\\pl\\Check\\' . "$CurrentServ
+erName" . '.txt';
...
                }
        }
}