my $clienthost = 'aardvark';
if (ref($client) =~ /RPC::PlClient/) {
    $client -> Log ('notice', "Connect from $clienthost.");
}

Example 6: Writing a bridge server Log entry from the client.