--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 7c92a44ccf1e0aaa6ed78b21c630886de18ebab2..5cf06f37f7d0fbdec3f209528d07aeff588f892b 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -53,6 +53,22 @@ sub Triple::main {
     my $request = FCGI::Request();
 
     my @threads = (
+        [
+         [ "Post", 1 ],
+         [ "Sneed", 2 ],
+        ],
+        [
+         [ "based", 3 ],
+         [ "retard", 4 ],
+        ],
+        [
+         [ "Post", 1 ],
+         [ "Sneed", 2 ],
+        ],
+        [
+         [ "based", 3 ],
+         [ "retard", 4 ],
+        ],
         [
          [ "Post", 1 ],
          [ "Sneed", 2 ],