use File::Spec::Functions qw/catfile/;
[...]
open DATEI, '<', catfile($josm_appdata_folder, $file_bookmark_backup)
    or die "Fehler beim Öffnen der Bookmarkliste: $!";