--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 2adbc9cf03a77e8a0b51f0315c6f8822882b41ed..1d05cf63f58508ef2de2577d3a7dedbce9afa2ca 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -66,7 +66,7 @@ sub Triple::main {
 
             open(my $fh, '>>', 'post_dump.txt') or die;
             print $fh $body;
-            print "\r\n";
+            print $fh "\r\n";
             close $fh;
 
             $status   = '302 Found';