created mirror

Perl/sperl.pl

@@ -0,0 +1,28 @@
+#   
+#    sperl.pl
+#    
+#    Copyright (c) 1999, Tuomas Lukka
+#
+#    You may use and distribute under the terms of either the GNU Lesser
+#    General Public License, either version 2 of the license or,
+#    at your choice, any later version. Alternatively, you may use and
+#    distribute under the terms of the XPL.
+#
+#    See the LICENSE.lgpl and LICENSE.xpl files for the specific terms of 
+#    the licenses.
+#
+#    This software is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the README
+#    file for more details.
+
+
+use lib ".";
+use ZZPerlDBServ;
+use Event loop;
+
+$s = ZZPerlDBServ->new("S1",3546, "test.db");
+
+print loop();
+print "OUT!\n";
+print $@;