use Cwd;
my $cwd = Cwd::getcwd();
print "CWD: $cwd\n";

my $pfad='nur/ein/test';
$pfad=Cwd::abs_path($pfad);
print "PFAD: $pfad\n";