Also block IPv6 address lookups

make-block.pl

@@ -54,7 +54,7 @@ sub add_host_file {
 
 MAIN: {
     my $out;
-    my $block_ip = '0.0.0.0';
+    my $block_ip = '0.0.0.0 ::1';
     my $workdir = &dirname($0);
 
     unless (&GetOptions(
@@ -82,9 +82,13 @@ MAIN: {
         open $fho, '>', $out
             or die "Failed to open file $out for writing: $!";
     }
+    my @block_ip = sort split /\s+/, $block_ip;
     print $fho map {
         ++$written;
-        "$block_ip $_\n"
+        my $domain = $_;
+        map {
+            "$_ $domain\n"
+        } @block_ip;
     } sort keys %domains;
 
     printf STDERR "%d domains written to %s from\n", $written, $out;