
#!/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 =~ /78.83.89.193/ 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("csf -d $netblock Blocked by BL");
  system("\n echo -e '\e[93m $netblock  \e[0m blocked in CSF \n'");
}
}