--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 10bf91ca2883ccab21e5f1a134b0192541cadb58..1a4455ebdf2a33e78a841ba5762ad0b634c491a1 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -44,6 +44,7 @@ sub Triple::main {
         for my $pair (split /&/, $_[0]) {
             my ($key, $val) = split /=/, $pair, 2;
             $form{uri_unescape($key)} = uri_unescape($val // '');
+            syslog("info", uri_unescape($val // ''));
         }
         return %form;
     }