Select Code to Download

#!perl
use strict;
...
    readdir $d;
close $o or die "can't complete writing to file: $!\n";
closedir $d;

#!perl
use strict;
...
}

write_to_file './output', map { read_file $_ } files_from_dir '/some/d
+irectory';