Note that $file-name is not a valid variable name in Perl. I recommend that you start using the strict pragma in your program, which will catch such mistakes.