Select Code to Download

print "Received from Server :", %$data1, $/;
 # OR
print "Received from Server :", Dumper($data1), $/;

#tcpserver.pl

...
#}

$socket->close();

#tcpclient.pl

...

$socket->close();