Or how about using this? Seems a bit easier and shorter

my @files = <*>;
[download]

or you can do this if you want a list of files only (not directories)

my @files=();

while (<*>) 
{
    push (@files,$_) if (-f "$_");
}
[download]