Select Code to Download

use warnings;
use strict;
...
my @small_files = grep( (-s) < 10000, @ARGV);
my @output = map s/(.*)/    $1\n/, @small_files;
print @output;