diff --git a/bin/summarize_server.pl b/bin/summarize_server.pl
index 6e51072f..1f0be1be 100644
--- a/bin/summarize_server.pl
+++ b/bin/summarize_server.pl
@@ -164,16 +164,16 @@ sub generate_overview {
         $out{glyphs}{types}{$glyph->type} = $glyph->quantity;
     }
 
-    my $read;
-
     if (-e '/home/lacuna/server/public/server/server_overview.json')
     {
-        open my $read, '<', '/home/lacuna/server/public/server/server_overview.json';
+        open my $read, '<', '/home/lacuna/server/public/server/server_overview.json'
+            or die "Couldn't read server_overview.json: $!";
         my $old_stats = from_json(do { local $/; <$read> });
         $out{spies} = $old_stats->{spies};
     }
 
-    open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json';
+    open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json'
+        or die "Couldn't write server_overview.json: $!";
     print $fh to_json(\%out);
     close $fh;
 }
diff --git a/bin/summarize_spies.pl b/bin/summarize_spies.pl
index 056c068f..8ae46abd 100644
--- a/bin/summarize_spies.pl
+++ b/bin/summarize_spies.pl
@@ -97,13 +97,15 @@ sub generate_overview {
     my $stats = {};
     if (-e '/home/lacuna/server/public/server/server_overview.json')
     {
-        open my $read, '<', '/home/lacuna/server/public/server/server_overview.json';
+        open my $read, '<', '/home/lacuna/server/public/server/server_overview.json'
+            or die "Couldn't read server_overview.json: $!";
         $stats = from_json(do { local $/; <$read> });
     }
     $stats->{spies} = $out{spies};
 
-    open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json';
-    print $fh to_json(\%out);
+    open my $fh, '>', '/home/lacuna/server/public/server/server_overview.json'
+        or die "Couldn't write server_overview.json: $!";
+    print $fh to_json($stats);
     close $fh;
 }