--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 1a4455ebdf2a33e78a841ba5762ad0b634c491a1..64457cf51ef89bba9c75a4ed273a5e29a860c0c3 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -80,6 +80,7 @@ sub Triple::main {
             # print $fh $body;
             # print $fh "\r\n";
             my %post = parse_post($body);
+            print $fh Dumper $cgi->upload('file');
             print $fh Dumper %post;
             close $fh;