next if $dir_cont =~s/^\.\.?$/;
[download]

you might want to change that line to:

next if $dir_cont=~/^\.\.?$/;
[download]

because I really don't think you want substitution. basically delete the 's' also

my($dir,$fullpath) = @_;
[download]

should be

my($dir,$full_path) = @_;
[download]