The filename you get from my $filename=<STDIN> has a newline at the end. You need to remove this, for example by doing a chomp $filename.