my $lowercase = (ucfirst(lc$infodir1));

if $infodir1 = $lowercase { #this is line 55
print $lowercase;
}

here's the error message:
syntax error at d:\209.35.163.243\cgi-bin\getprods.pl line 55, near "if $infodir1 "
Global symbol "%lowercase" requires explicit package name at d:\209.35.163.243\cgi-bin\getprods.pl line 55.