[Perl] Ayuda

[=?iso-8859-1?Q?Benjamin_Huitr=F2n_Solar?=]

Hola lista, esper me puedan ayudar..
 Hice un mini script en perl sobre solaris, y este pretende ejecutar
comandos de root, pero a la hora de que lo corro como usuario normal marc=
a:
Insecure dependency in system while running setuid at /dev/fd/3 line 62,
y lo unico que estoy haciendo es:
system("/usr/sbin/usermod -s /bin/nologin $username");
el cual se supone que unicamente cambia el shell de un usuario, esto si l=
o
hace como root.
los permisos que tienen son:
-rwsr-sr-x   1 root     other       7049 Jul 30 19:14 support

Alguien podria ayudarme?

                              ,,,,,,
                            ( o  o )
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DoOO=3D=3D(_)=3D=3DOOo=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
         B e n j a m i n - H u i t r =F3 n - S o l a r
                   G e m t e l - I n t e r n e t
                          Tel: 266 - 60 - 65
                          # ICQ 58196854
      Web Site: http://gemtel.com.mx/~benjamin/
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

"Mensaje enviado intencionalmente sin acentos para facilitar su lectura e=
n
cualquier programa de correo"