#!/usr/bin/perl -w
#

use strict;
use English;

use ExtUtils::testlib;
use Net::Pcap;


my($dev, $err, $pcap_t);

$pcap_t = Net::Pcap::open_offline("audio.dump",\$err);

if (!defined($pcap_t)) {
    die("Net::Pcap::MALE $err");
}

my $count;

sub process_pkt {
    my($user, $hdr, $pkt) = @_;
    my $i = 0;
    my $j = $hdr->{'len'};
    my @chardata = split(//, $pkt);
    $j = $j - 0x36;
    $i=0x0;
    foreach(@chardata) {
	if($i>0x35) {
		print ;
	}
	$i++;
    };
}

Net::Pcap::loop($pcap_t, 0, \&process_pkt, "1234");
Net::Pcap::close($pcap_t);