Select Code to Download

#!/usr/bin/perl -w

...
my @files = grep !/$noshow/, readdir(DIR);

print "$_<BR>" for @files;