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