use DHCP::OMAPI;
    my $connection = new DHCP::OMAPI::Connection(  host    => $host,
                                                   port    => 50004,
                                                   keyfile => "dhcp_monitor.key" );

    if($connection) {

           my $failover = DHCP::OMAPI::Object::Failover->fetch(    $connection,
                                                                   "name" => "dhcpd_failover"
                                                              );

           if($failover) {
                   foreach my $a ($failover->attributes()) {
                           printf "%s: %s\n",$a,$failover->get($a);
                   }

           }
    }