On a side note, there's no need to put double quotes around $File.

While this makes sense in shell programming, for when the string has spaces in it etc., in Perl it's plain superfluous.