#!/usr/bin/perl
use IO::All;
use Storable qw/thaw/;
my $s = io(':55555')->fork->accept;
my $l = $s->getline;
( my $size ) = $l =~ /(^\d+)/;
my $data;
$s->read( $data, $size ) || die $!;
my @data = @{ thaw($data) };
$s->print( $data[1] );

##</code><code>##

#!/usr/bin/perl
use IO::All;
use Storable qw/freeze/;
my @data = qw/hello world/;
my $data = freeze( \@data );
my $io   = io('localhost:55555');
$io->print( length($data), "\n", $data );
print $io->getline;