my $added = $dns->add_dns('pesquisa.sl.pt', '10.135.3.179','A');
        if (!$added) { 
                print "ERROR: " .$dns->{'error'}  ."\n";
        } else {
                print "dns added\n";
        }

        print Dumper $info;

        print Dumper $info;

        if (!$info) {
                print "ERROR: " . $dns->{'error'} ."\n";
        } else {
                print Dumper $info;
        }