Select Code to Download

#!/perl/bin/perl

...
  push @big_old_files, $_
    if (-s) > 100_000 and -A _ > 90; # More efficient than before
}

#!/perl/bin/perl

...
      print _;
   }
}