As roboticus mentions, something like

@files = grep { ! /^\.\.?$/ } readdir $DIR;
[download]

would have been simpler and easier to understand. Also, your choice of $dir and $DIR as variable names could lead to confusion.

Cheers,

JohnGG