sudo -s
cat > /tmp/setuid.pl
#!/usr/bin/perl
use English;
print "UID:$UID EUID:$EUID\n";
ctrl D

chmod a+rx /tmp/setuid.pl
chmod u+s /tmp/setuid.pl 
exit
/tmp/setuid.pl
UID:1334 EUID:0