#!/usr/bin/perl -T
#
use POSIX qw(setuid setgid);
if ($<) {
        $( = $) = 0;
        $< = $> = 0;
        print "Could not setuid ".$<." \n" if ($<);
        POSIX::setuid(0) if ($<);
        print "Posix could not setuid either ".$<." \n" if ($<);
}