Select Code to Download

open(my $filehandle, '<', $filename)
  or die "error opening $filename: $!";
...
  map { chomp; [ split /\s*,\s*/ ] }
  grep { /\S/ } # skip empty lines
  <$filehandle>;