use FindBin;
my $dir = "$FindBin::Bin/../userdaten/main";