my $directoryName = '/tmp';
opendir(my $dh, $directoryName)
  or die "Can't open dir $directoryName : $!";
my @files = grep { -f "$directoryName/$_" } readdir($dh);
closedir($dh);
print "$_\n" for @files;