suidperl program (can't get them to work)

[Darryl P. Wagoner]

I wish to use the suid feature of perl and I am getting the error
message of:

	Not a perl script at /tmp/testid line 1.

The test program is very short and is as follows:


	#! /bin/perl
	eval "exec  /bin/perl -S $0 $*"
		if $running_under_some_shell;

	system "/usr/bin/id";
	

The permissions on the file is:

	-rwsr-xr-x  1 susan   unisec      100 Nov 20 19:14 /tmp/testid

Can someone point me in the right direction?


-- 
Darryl Wagoner		(home) darryl at lemuria.uucp 
Shecora Associates, Inc; 	OS/2, Just say No!
Nashua,NH  			(w) 603-623-3330 (h) 603-465-7130
UUCP:  ubbs-nh!lemuria!dpw