my $inputFile = q{xyz.txt};
open my $inputFH, q{<}, $inputFile
   or die qq{open: < $inputFile: $!\n};
my $outputFile = q{abc.txt};
open my $outputFH, q{>}, $outputFile
   or die qq{open: > $outputFile: $!\n};