use strict;
use warnings;
use Data::Dumper qw( Dumper );
print("Enter file path> ");
chomp( my $qfn = <STDIN> );
{
   local $Data::Dumper::Useqq = 1;
   local $Data::Dumper::Terse = 1;
   local $Data::Dumper::Indent = 0;
   print('$qfn=', Dumper($qfn), "\n");
}
open(my $fh, '<', $qfn)
   or die("open $qfn: $!\n");