For some reason you don't have

use strict;
use warnings;
[download]

in your code (see Use strict warnings and diagnostics or die and Use strict and warnings), you aren't chomping user input and you don't check your file open worked.

Update: Perhaps worth some time working through some of the tutorials under Getting Started with Perl or reading http://learn.perl.org.