#!/usr/bin/perl
use strict;
use Net::DNS;

my $domain = "pmsservice.qupps.biz";
my $key    = "uRL";                             # attribute requested
my $val    = "?";
my $res    = Net::DNS::Resolver->new;           # create resolver object

my $query = $res->search($domain, 'TXT');       # perform query
die "query for $domain failed: ", $res->errorstring, "\n" unless ($query);

foreach my $rr ($query->answer) {               # RRset
        if ($rr->type eq 'TXT') {
                my $txt =  $rr->txtdata;
                
                if ($txt =~ /^${key}.*="?(.*)"?$/i) {
                        $val = $1;
                        last;
                }
        }
}
print "value = [$val]\n";