--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 18d471e2eac19cf1485e3dc8458cf6fb3b2b1c9d..ae00560ac4888821ac1f515c8f96cf88cfd60709 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -52,10 +52,14 @@ sub Triple::main {
     my ($sitename, $version) = init();
     my $request = FCGI::Request();
 
-    my @posts = (
+    my @t1 = (
         [ "Post", 1 ],
         [ "Sneed", 2 ],
         );
+    my @t2 = (
+        [ "based", 3 ],
+        [ "retard", 4 ],
+        );
     my @threads = (
         \@posts,
         );