Select Code to Download

  my @files = `ls $dir`;

  my @files;
  {
...
      @files = grep {!/^\./} readdir $dh;
      closedir $dh;
  }

    my $info = do {local (@ARGV, $/) = $file; <>};  # Cryptic
    
...
        $info = <$fh>;
        close $fh;
    }