firewall kaynaklımı bilmiyorum ama kapatmak için

service iptables stop

kullanabilirsin.
Perl çalışıyormu onu kontrol etmek için de

#!/usr/bin/perl
use IO::Socket;
if(@ARGV != 1){
    print "Hav0c\' ports scanner\nUsage: $0 [host]\n";
    exit 1;
}
for($i = 0; $i <= 65535; ++$i){
    $host = IO::Socket::INET->new(PeerAddr=>$ARGV[0],PeerPort=>$i,proto=>'tcp',Timeout=>1) and print "Port $i is open\n";
}
exit;

bu nu port.pl olarak kayıt et sonrasında

perl port.pl

olarak çalıştır karşına Hav0c' ports scanner
Usage: mol.txt [host] çıkarsa derliyor demektir yani çalışıyor.