Client Side
-----------
my %c = ( 
		name => "Apple",
		value => "25",
		);
my $a = [ %c ];
my $d=Data::Dumper->New([ %c , $a]);
$Server->syswrite( $d , length($g));

Server Side
-----------
$Scoket->recv($buffer,$buff_len);