# read the message sent by server. #my $serverdata = <$socket>; #print "Message from Server : $serverdata \n"; #### Message from Server :