(fastolfe) eddie:~$ ls -l test
-rwsrwxr-x   1 root     fastolfe       53 Nov 13 16:17 test
(fastolfe) eddie:~$ ./test
uid=500 euid=0
(fastolfe) eddie:~$ cat test
#!/usr/bin/perl

printf("uid=%d euid=%d\n", $<, $>);
(fastolfe) eddie:~$ uname -a
Linux eddie.intranet 2.2.16 #1 Thu Jun 8 17:46:12 CDT 2000 i586 unknown