Select Code to Download

#!/usr/bin/perl
#
...
 
my @sorted = rrsort("NAPTR","priority",@rrs_array);
print Dumper(@rrs);

#!/usr/bin/perl
#
...

print Dumper($NAPTR);
print "*** " . $NAPTR->{'answer'}->[1]->{'regexp'} . "\n";

$VAR1 = bless( {
                 'answer' => [],
...
                                    }, 'Net::DNS::Header' ),
                 'offset' => 48
               }, 'Net::DNS::Packet' );

;; query(2.4.0.0.5.8.4.0.6.8.1.e164.org, NAPTR)
;; Trying to set up a AF_INET6() family type UDP socket with srcaddr: 
+0.0.0.0 ... done
...
                 'offset' => undef
               }, 'Net::DNS::Packet' );
*** !^\+18604850042$!sip:6200@superiordesign.homelinux.net!