Select Code to Download

if (-d $location){
check if $location ends with \ .. or if not add it.. 
}

my $var = substr($location,length($location)-1,1);
    print "\n\nVAR:::   $var\n\n";
...
      $location = $location."\\";
      print "NEU:: $location\n\n" ;
      }