#!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;