First version

1 files changed, 15 insertions, 0 deletions

diff --git a/srs b/srs
new file mode 100755
index 0000000..eea1711
--- /dev/null
+++ b/srs
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+ 
+use FindBin;
+use lib $FindBin::Bin;
+use Spline::Socketmap;
+use Spline::Srs;
+ 
+$Spline::Socketmap::timeout = 10;
+
+$Spline::Socketmap::handler = sub {
+    Spline::Srs->handle(@_);
+};
+Spline::Socketmap->run();