You're not doing any error checking. perldoc -f open

  open(my $fh, '<', "input.txt") or die $!;

and for writing:

  open(my $fh, '>', "output.txt") or die $!;
[download]

Or

use autodie;