Select Code to Download

open my $fh, '<', \$file or die "unable to open read file $!";

my $filename = 'file.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";