
#!/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";
}
}