Select Code to Download

my $CurrentDir="."; # Or "Sanjay";
opendir DH, "." or die "failed to readdir $CurrentDir: $!";
...
         print "sucess: $_";
   }
}

while (glob "$CurrentDir/*"){
  $temp = $_;
  # Remainder of the code is the same.