use strict;
use warnings;

my $inputFile = <>;

open my $inputFH, q{<}, $inputFile
   or die qq{open: < $inputFile: $!\n};