my $oDump = Net::Frame::Dump::Offline->new(
        file    => $pcapfile,
        filter  => 'udp src port 53',
);

$oDump->start;

my $count = 0;

while (my $h = $oDump->next) {
        my $f = Net::Frame::Simple->new(
                raw             => $h->{raw},
                firstLayer      => $h->{firstLayer},
                timestamp       => $h->{timestamp},
        );
        my $len = length($h->{raw});
        print 'o Frame number: '.$count++." (length: $len)\n";
        print $f->print."\n";
        print $f->firstLayer."\n";
}