If you want the files in the current directory, you could do something like this:

my $somedir = '.';
opendir DH, $somedir or die "Cannot open $somedir: $!";
my @files = grep { ! -d } readdir DH;
closedir DH;
[download]