Select Code to Download

my $fh = IO::File->new($qfn, 'r')
   or die("Can't open file \"$qfn\": $!\n");

open(my $fh, '<', $qfn)
   or die("Can't open file \"$qfn\": $!\n");