use lib 'lib';
use IO::All;
my $socket = io(':12345')->accept('-fork');
$socket->print($_) while <DATA>;
$socket->close;
__DATA__
On your mark,
Get set,
Go!
use lib 'lib';
use IO::All;
my $socket = io(':12345')->accept('-fork');
$socket->print($_) while <DATA>;
$socket->close;
__DATA__
On your mark,
Get set,
Go!