if((getpwuid($>))[0] ne "root") {  # how is this handled on Microsoft systems?
    print STDERR "You are ", (getpwuid($>))[0], " and $0 must be run as root.\n";
    exit(1);
}