Почему у меня вылетает такое?
Insecure dependency in system while running setuid at ./3.pl line 9.

Так и не дошло как исправить простейший скрипт! Ткните носом пожалуйста.

Простейший скрипт:

#!/usr/bin/suidperl
use CGI qw(:all);

$ENV{'PATH'}='/bin:/sbin:/usr/bin:/usr/sbin';

$a=$ARGV[0];
$b=$ARGV[1];
system "/usr/bin/htpasswd -b /usr/local/squid/etc/passwd $a $b";