# Instanciate object, will start capturing from network
   my $dump = Net::Packet::Dump->new(
      filter  => 'tcp',
      noStore => 1,
   );

   while (1) {
      if (my $frame = $dump->next) {
         do_stuff($frame);
      }
   }

##</code><code>##

bless(Net::Packet::netpacket_pcap_fp($self->_pcapd), 'IO::File')

##</code><code>##

FILE * netpacket_pcap_fp(pcap_t *pd){
   if (pd == NULL) return(0);
   else return(pd->sf.rfile);
}

##</code><code>##

'_pcapd' => pcap_tPtr=SCALAR(0x896dde8)
   -> 144211632

##</code><code>##

struct pcap_sf {
	FILE *rfile;
	...
};
...
struct pcap {
	...
	struct pcap_sf sf;
	...
};