Select Code to Download

#!/usr/bin/perl
use strict;
...
my (@push_list) = map{"$_\n"} glob "*";

print "@push_list\n";