From b8c7b74a7ca3d8f96249d43be5589a8599379e31 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Thu, 15 May 2025 18:06:08 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 0707627..10bf91c 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -75,7 +75,7 @@ sub Triple::main {
                 read(STDIN, $body, $content_length);
             }
 
-            open(my $fh, '>>', 'post_dump.txt') or die;
+            open(my $fh, '>', 'post_dump.txt') or die;
             # print $fh $body;
             # print $fh "\r\n";
             my %post = parse_post($body);
-- 
2.39.5