What is this, a question or a code submission? If you're not asking a question then you've posted it in the wrong place. A link to Where should I post X? is displayed each time you post. Seekers of Perl Wisdom is for questions, Cool Uses for Perl is for code you want to share.

You may want to read open, use the 3 argument open and actually die if you can't open your input file, printing $! to tell users why it fails.