IPTABLES Perl-ből problémás

[Rostás Béla]

Sziasztok!

A kérdésem a következő lenne:

Adott egy Smoothwall 3.0 tűzfal, amin meg kellene oldani, hogy a tanárok a
webes felületen ki/be tudják kapcsolgatni az internet hozzáférést. Menne is
minden jól, csak az a baj, hogy amikor perlben a következő sor lefut nem
történik semmi:
system("iptables -A b_terem -s 10.1.0.188 -m multiport -p tcp --ports 800 -j
DROP");
A "b_terem" nevű lánc bele van fűzve az "INPUT" láncba, és parancssorból
működik is rendesen. 
Az error_log-ba a következő kerül:
Could not open socket to kernel: Operation not premitted

Mit lehetne tenni?

Üdvözlettel: Rostás Béla