The glob function is probably the easiest solution, and it is necessarily on your Perl environment.

Otherwise you may filter out directories and keep only files:

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