next if $dir =~ /^\.\.?$/ || ! -d $dir;
[download]

Since you never fix up $dir to be the path including the directory name, this test is guaranteed to fail, except under the random moment when a directory below /home/www is also in the current directory. See the other solutions in this thread for working examples, of which yours is not.

Code is untested but should work.

Where "should" here means "I would like it to", not "it does". {grin}

-- Randal L. Schwartz, Perl hacker