24 	"ttl=i" => \$opt_ttl,

    24 	"ttl=i" => \$opt_ttl,

    25 	"help" => sub { pod2usage(-verbose => 1, exit => 0) },

    25 	"help" => sub { pod2usage(-verbose => 1, exit => 0) },

    26 	"man" => sub { pod2usage(-verbose => 2, exit => 0) },

    26 	"man" => sub { pod2usage(-verbose => 2, exit => 0) },

    27     ) or pod2usage();

    27     ) or pod2usage();

    28     pod2usage() if @ARGV == 0;

    28     pod2usage() if @ARGV == 0;

    31 

    29 

    32     my @out;

    30     my @out;

    33     my $action = $opt_delete ? "delete" : "add";

    31     my $action = $opt_delete ? "delete" : "add";

    34 

    32 

    35     if (!$opt_domain) {

    33     if (!$opt_domain) {