use 5.020;
use strict;
use warnings;
use Test::More tests => 1;

use URI::Escape;
use Encode;

my $pfad = "D:/Daten/POI/Stellplaetze/Schl\x{f6}sser-Burgen/Frankreich/Bilder/Tr\x{e9}mazan.jpg";
my $expected = 'D:/Daten/POI/Stellplaetze/Schl%C3%B6sser-Burgen/Frankreich/Bilder/Tr%C3%A9mazan.jpg';

$pfad_c = Encode::encode('utf-8', $pfad);
$pfad_g_c = uri_escape($pfad_c,"\x00-\x1f\x7f-\xff");

is($pfad_g_c,$expected,"Die Codierung ist so richtig!");