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