--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 892ee1c8c525f4e07beca2ec850122528e958b86..7ee77397d79748ca9a526bb73b6f3773110555e0 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -66,6 +66,7 @@ sub Triple::main {
 
             open(my $fh, '>>', 'post_dump.txt') or die;
             print $fh $body;
+            print;
             close $fh;
 
             $status   = '302 Found';