Select Code to Download

#!/usr/bin/perl
use IO::All;
...
$s->read( $data, $size ) || die $!;
my @data = @{ thaw($data) };
$s->print( $data[1] );

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