Re^5: How to ask user for file name and save the output to a new text file

Your use of open is inconsistent, consider:

open (my $readhandle, "<", $filetoread) 
  or die "Unable to read '$filetoread': $!";

open (my $writehandle,"+>", $filetowrite) 
  or die "Unable to write '$filetowrite': $!";

open (my $outputhandle, ">", $fileoutput)
  or die "Unable to write '$fileoutput': $!";
[download]

Note the use of brackets and the comma after the file handle.

Comment on Re^5: How to ask user for file name and save the output to a new text file Download Code