$ ls -l setuidscript
-rws------    1 root     root           49 Dec 14 22:26 /tmp/setuidscript
$ cat setuidscript
#!/usr/bin/sperl5.6.0
print "UID: $< EUID $>\n";
$ ./setuidscript
UID: 8029 EUID 0