--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index a1fb1e0f9530846b625c1b2e69a46e0591d355dd..224eb640db888ca94068ec0cf574a6577588f593 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -45,7 +45,7 @@ sub Triple::main {
             -charset      => 'UTF-8',
             );
 
-        # print %static{$path};
+        print %static{$path};
     }
 }