#! /usr/bin/perl

use Net::ISC::DHCPd::OMAPI;

    my $omapi = Net::ISC::DHCPd::OMAPI->new( key => 'omkey ' . 'xxxxxx' );
    $omapi->connect or die "Could not connect to server: ".$omapi->errstr."\n";

# as per cpan page
#    my $failover = $omapi->new_object("failover",(name => 'st1_dhcpb'));

# omapi cpan page
#    my $failover = $omapi->new_object(failover=>(name => 'st1_dhcpb',));

# as per POD
#   my %failover_hash = ( 'name' => 'st1_dhcpb');
#    my $failover = $omapi->new_object("failover" => %failover_hash);

# as per github example
    my $failover = $omapi->new_object('failover') or
                    die "Could not create failover: ".$omapi->errstr."\n";

    $failover->name('st1_dhcpb');

# Try to get info (equiv to cli 'open' cmd)
    $failover->read  or die "Could not read failover: ".$omapi->errstr."\n";