my $data = "\000\012\000\144\023\304\003pbx\007example\003com\000:3600";
$offset=0;
( $rr, $next ) = decode Net::DNS::RR( \$data, $offset);
print "RR = $rr\n";
print "NEXT = $next\n";
exit;