# 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";
    }