[...]
  my ($borgbase,$borgpath)=fileparse($0);
  [...]
  else {
    print "Wo sind wir ? Es ist so....leise. Bring uns nach Hause!\n";
  }
  [...]