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);

##</code><code>##

Can't call method "Dump" without a package or object reference at .....

##</code><code>##

"$VAR1 = \'Data::Dumper=HASH(0x8adff94)\';"