Select Code to Download

open (F, $file) or die "cannot open file";
  my @lines = <F>;
  close F;

use File::Slurp;
my @array = read_file($filename);