I've finally got the output I wanted.
I've made the following change for unpacking:

@tmprecv=<$socket>;
$recv=join("",@tmprecv);

print unpack("i/A*",$recv);
Thanks for all the help