my $client = eval { RPC::PlClient->new('peeraddr' => 'aardvark', 'peerport' => 9999, 'application' => 'RPC::PlServer', 'version' => $UnixODBC::VERSION, 'user' => 'peerusername', 'password' => 'peerpassword') } or print qq|<p>Failed to make first connection to $peeraddr: $@</p>|;
Example 8: Generating CGI output for peer-to-peer client errors.