Select Code to Download

my $directoryName = '/tmp';
opendir(my $dh, $directoryName)
...
my @files = grep { -f "$directoryName/$_" } readdir($dh);
closedir($dh);
print "$_\n" for @files;