#!/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;