The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use RPC::EPC::Service;

my $s=RPC::EPC::Service->new(8888,{});
$s->{wait}->send;
$s->start;
sleep 1;