sub get_home_dir {
    if ($^O eq 'MSWin32') {
         $ENV{USERPROFILE};
    } else {
         $ENV{HOME}; # wobei es sicherer ist, getpwuid zu verwenden!
    }
}