$socket->recv($buffer , BUFF_LEN);
my $a = [ $buffer ];
my $d = Data::Dumper->new([ $buffer , $a ]);
my $c = $d->Dump;
print Dumper($c);