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


##</code><code>##

my $var = substr($location,length($location)-1,1);
    print "\n\nVAR:::   $var\n\n";
     if ($var eq "\\"){
       print "HIER IS ES\n\n";
      }
      else{
      $location = $location."\\";
      print "NEU:: $location\n\n" ;
      }