require Net::Daemon;
require RPC::PlServer;
require IO::Socket;
use UnixODBC ':all';
package UnixODBC::BridgeServer;
use vars qw($VERSION @ISA);
$UnixODBC::BridgeServer::VERSION = $UnixODBC::VERSION;@
UnixODBC::BridgeServer::ISA = qw(RPC::PlServer);
sub new {
    my $self = shift -> SUPER::new(@_);
}

Example 5: Constructor for peer-to-peer server objects.