use File::Spec;

my $pfad='nur/ein/test';
$pfad=File::Spec->rel2abs($dir);

print "PFAD: $pfad\n";