From e6c87c173e2faaaea612be881f0d14d95cc61605 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 14 May 2025 14:01:23 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 5b334b0..892ee1c 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -63,6 +63,11 @@ sub Triple::main {
             if ($content_length > 0) {
                 read(STDIN, $body, $content_length);
             }
+
+            open(my $fh, '>>', 'post_dump.txt') or die;
+            print $fh $body;
+            close $fh;
+
             $status   = '302 Found';
             $location = $vars->{"uri"};
         }
-- 
2.47.3