(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);
        (my $sec2,my $min2,my $hour2,my $mday2,my $mon2,my $year2,my $
+wday2,my $yday2,my $isdst2) = localtime($theLocalTime+259200);
        (my $sec3,my $min3,my $hour3,my $mday3,my $mon3,my $year3,my $
+wday3,my $yday3,my $isdst3) = localtime($theLocalTime+345600);
        (my $sec4,my $min4,my $hour4,my $mday4,my $mon4,my $year4,my $
+wday4,my $yday4,my $isdst4) = localtime($theLocalTime+432000);
        (my $sec5,my $min5,my $hour5,my $mday5,my $mon5,my $year5,my $
+wday5,my $yday5,my $isdst5) = localtime($theLocalTime+518400);
        (my $sec6,my $min6,my $hour6,my $mday6,my $mon6,my $year6,my $
+wday6,my $yday6,my $isdst6) = localtime($theLocalTime+604800);
 
        @monArray =  ($mon0,$mon1,$mon2,$mon3,$mon4,$mon5,$mon6);
        @mdayArray = ($mday0,$mday1,$mday2,$mday3,$mday4,$mday5,$mday6
+);
        @wdayArray = ($wday0,$wday1,$wday2,$wday3,$wday4,$wday5,$wday6
+);
[download]

$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[2]."/".$mdayArray[2])."') OR
+ "
        ."(anniversary LIKE '".($monArray[3]."/".$mdayArray[3])."') OR
+ "
        ."(anniversary LIKE '".($monArray[4]."/".$mdayArray[4])."') OR
+ "
        ."(anniversary LIKE '".($monArray[5]."/".$mdayArray[5])."') OR
+ "
        ."(anniversary LIKE '".($monArray[6]."/".$mdayArray[6])."')) "
        ."ORDER BY facility, years DESC";
[download]

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