Select Code to Download

        (my $sec0,my $min0,my $hour0,my $mday0,my $mon0,my $year0,my $
+wday0,my $yday0,my $isdst0) = localtime($theLocalTime+86400);
        (my $sec1,my $min1,my $hour1,my $mday1,my $mon1,my $year1,my $
+wday1,my $yday1,my $isdst1) = localtime($theLocalTime+172800);
...
        @monArray =  ($mon0,$mon1,$mon2,$mon3,$mon4,$mon5,$mon6);
        @mdayArray = ($mday0,$mday1,$mday2,$mday3,$mday4,$mday5,$mday6
+);
        @wdayArray = ($wday0,$wday1,$wday2,$wday3,$wday4,$wday5,$wday6
+);

$sql = "SELECT facility, department, name, soc, anniversary, years "."
+FROM EMPFILE "."WHERE ((anniversary LIKE '".($monArray[0]."/".$mdayAr
+ray[0])."') OR "
        ."(anniversary LIKE '".($monArray[1]."/".$mdayArray[1])."') OR
+ "
...
        ."(anniversary LIKE '".($monArray[5]."/".$mdayArray[5])."') OR
+ "
        ."(anniversary LIKE '".($monArray[6]."/".$mdayArray[6])."')) "
        ."ORDER BY facility, years DESC";

eval{$sqlH = $dbh->prepare($sql);};