­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ #!/usr/local/bin/perl my $netblock = shift(@ARGV); chomp($netblock); if ($netblock eq ""){ print "Prayers to the GOD of firewall are accepted only if followed by an IP address/hostname.. Where is yours sacrifice for the cult? \n"; } else { if ( $netblock =~ /127.0.0.1/ or $netblock =~ /69.175.41/ or $netblock =~ /74.55.12.210/ or $netblock =~ /74.55.238.226/ or $netblock =~ /69.175.60.114/ or $netblock =~ /69.175.84.194/ or $netblock =~ /69.175.84.2/ or $netblock =~ /74.200.74.237/) { print "You can not block $netblock. It belongs to GOD.. and by GOD -- I mean My GOD, not yours, so.. stop praying \n"; } else { system("iptables -I INPUT -s $netblock -p tcp --destination-port 25 -j DROP"); print "$netblock dropped\n"; } }