#!perl

use Net::TcpDumpLog;
use NetPacket::TCP;
use NetPacket::Ethernet;

$log = Net::TcpDumpLog->new();
$log->read("test.pcap");

@Indexes = $log->indexes;

foreach $index (@Indexes) {

($length_orig,$length_incl,$drops,$secs,$msecs) = $log->header($index); 
$data = $log->data($index);

my $tcp_strip = NetPacket::TCP::strip($data);


print "$tcp_strip\n";


}