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