Select Code to Download

$ perl -MIO::Handle -e'
   open(my $fh, "<", $ARGV[0]) or die;
...
   print "success\n"
' some_dir
success