#Send and receive a simple string 
$client->send("HELLO THERE") || die "ERROR SENDING: $@\n";
$reply = $client->receive() || die "ERROR RECEIVING: $@\n";
print "$reply\n";

#Send and receive complex objects/strings/arrays/hashes by reference 
#%hash = ("to be or" => "not to be" , "just another" => "perl hacker"); 
#$client->send(\%hash) || die "ERROR SENDING: $@\n"; 
#$reply = $client->receive() || die "ERROR RECEIVING: $@\n"; 
#foreach (keys %{$reply}) { 
#print "Received key: $_ = $reply->{$_}\n"; 
#} 

#Send and receive large binary data 
#for (1..4096) { 
#for (0..255) { 
#$largedata .= chr($_); 
#} 
#} 
#$client->send($largedata) || die "ERROR SENDING: $@\n"; 
#$reply = $client->receive() || die "ERROR RECEIVING: $@\n"; 

#$client->close();