Select Code to Download

#!/usr/bin/env perl -l

...
my @files = grep { -f "$scandir/$_" } readdir $dh;

print for @files;