1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/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();