Select Code to Download

while (my $line = <FILE>) {
         chomp $line;
         push @$outref, $line;
...
            last;
         }
   }

   my $file_size = -s IFILE;
   die "$file too large at $file_size bytes" if $file_size > $g_max_fi
+le_size;
  @$outref = <IFILE>;