PERL script to possibly kill firewall systems that actively block IP numbers if the system detects that the IP is scanning more than 20 ports on a network behind the firewall. - View it on GitHub