Select Code to Download

use FileHandle;
my $fh = new FileHandle;
my @input_file2;
tie @input_file2, 'Tie::File', \$fh, or die "Problem tying file $input
+_file2: $!";

usage: tie @array, Tie::File, filename, [option => value]... at ./SS7M
+erge line 42

tie my @input_file2, 'Tie::File', $input_file2
   or die "Problem tying file $input_file2: $!";

open my $fh, '+<', $input_file2
  or die "Problem opening file $input_file2: $!";
tie my @input_file2, 'Tie::File', $fh
  or die "Problem tying file $input_file2: $!";