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.