corrupt wire-format data at C:/Strawberry/perl/vendor/lib/Net/DNS/RR.pm line 241.

##</code><code>##

#!perl

use strict;
use warnings;

use Net::Frame::Simple;

my $data = "\000\012\000\144\023\304\003pbx\007example\003com\000";

my $info = Net::Frame::Simple->new(
        raw        => $data,
        firstLayer => 'DNS::RR::SRV',
);
print $info->print;

##</code><code>##

DNS::RR::SRV: priority:10  weight:100  port:5060
DNS::RR::SRV: target:pbx.example.com