diff --git a/scripts/perl/blacklist.pl b/scripts/perl/blacklist.pl
index d6c2ea785f..f434669f36 100755
--- a/scripts/perl/blacklist.pl
+++ b/scripts/perl/blacklist.pl
@@ -15,15 +15,15 @@ use LWP::Simple;
 my @addresses = split(/\n/, get("http://www.infiltrated.net/voipabuse/addresses.txt"));
 my @netblocks = split(/\n/, get("http://www.infiltrated.net/voipabuse/netblocks.txt"));
 
-print "<list name=\"voip-abuse-addresses\" default=\"allow\">\n";
+print "<list name=\"voip-abuse-addresses\" default=\"deny\">\n";
 foreach $addr (@addresses) {
-  print "  <node type=\"deny\" cidr=\"$addr/32\"/>\n";
+  print "  <node type=\"allow\" cidr=\"$addr/32\"/>\n";
 }
 print "</list>\n";
 
 
-print "<list name=\"voip-abuse-netblocks\" default=\"allow\">\n";
+print "<list name=\"voip-abuse-netblocks\" default=\"deny\">\n";
 foreach $netb (@netblocks) {
-  print "  <node type=\"deny\" cidr=\"$netb\"/>\n";
+  print "  <node type=\"allow\" cidr=\"$netb\"/>\n";
 }
 print "</list>\n";