if ($homedir) {
        my @rmargs = ('-rf');

        # print "rm @rmargs $homedir\n";
        system( 'rm', @rmargs, $homedir );
    }