Select Code to Download

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

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

my($dir,$fullpath) = @_;

my($dir,$full_path) = @_;