--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 3587669cce8daa7ed217324d6e21d03753d0f668..140c97deff5a0a83fbe6250fe9604aefe0b097a6 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -81,6 +81,7 @@ sub Triple::main {
             close $fh;
 
             my %post = parse_post($body);
+            print $fh Dumper %post;
 
             $status   = '302 Found';
             $location = $vars->{"uri"};