From 2496f5c5a98c469ba7f4a463bf483e893b3ed064 Mon Sep 17 00:00:00 2001
From: Dan Church <amphetamachine@gmail.com>
Date: Fri, 23 Jul 2021 16:09:38 -0500
Subject: [PATCH] Make make-block.pl's output more flexible

---
 make-block.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/make-block.pl b/make-block.pl
index 30e9027..47ff838 100755
--- a/make-block.pl
+++ b/make-block.pl
@@ -53,7 +53,7 @@ sub add_host_file {
 }
 
 MAIN: {
-    my $out = 'block.list';
+    my $out;
     my $block_ip = '0.0.0.0';
     my $workdir = &dirname($0);
 
@@ -77,8 +77,11 @@ MAIN: {
     }
 
     my $written = 0;
-    open my $fho, '>', $out
-        or die "Failed to open file $out for writing: $!";
+    my $fho = \*STDOUT;
+    if (defined $out && length $out) {
+        open $fho, '>', $out
+            or die "Failed to open file $out for writing: $!";
+    }
     print $fho map {
         ++$written;
         "$block_ip $_\n"