my $inFile = q{spw623147.txt};
open my $inFH, q{<}, $inFile
   or die qq{open: $inFile: $!\n};

##</code><code>##

my $inFile = 'spw623147.txt';
open my $inFH, '<', $inFile or die "open: $inFile: $!\n";