srs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 {
    my ($map, $key) = @_;
    Spline::Srs::handle($map, $key);
};
Spline::Socketmap->run();