$< = $> = 0;
        print "Could not setuid ".$<." error: $! \n" if ($<);
        POSIX::setuid(0) if ($<);
        print "Posix could not setuid either ".$<." error: $! \n" if ($<);