Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl  -w

...
my $mosyr_ref  = surveymos(\@dblist);
ЕЕ..            
print h4(u('Survey Months with Violations:'),"&nbsp $mosyr[0]&nbsp $mo
+syr[1]"); #RESULTING DATA