opendir my $dh, $dirname or die "could not open $dirname $!";
print "$_\n" for grep { -f $_ } readdir $dh ;