while ( <$filename> )

That's not right, <$fh> needs a filehandle to read from, why did you comment out the preceding line? Have you read "Processing a file upload field" in the documentation?