#!/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 ($<);
}

##</code><code>##

-rwsrwx--- 1 root csit 237 2010-04-30 01:16 setuid.pl

##</code><code>##

Could not setuid 500
Posix could not setuid either 500