readdir doesn't prepend the path information, you need to do it yourself.
something like :

print  "$_ \n" if (-d $path.$_);
[download]

should do you. This assumes that $path has the appropriate directory separator on the end.