Select Code to Download

           Net::Pcap::dump_open($pcap_t, $filename);
               Open a savefile for writing and return a descriptor for
+ doing so.  If $filename is "-" data is written to standard output.

  ...
  my $result = Net::Pcap::loop($pcap_desc, $args{NUMPACKETS}, \&sniffi
+t, args{USERDATA});
...
    close(FH); 
    unlink("/tmp/andy.pcap");
  }

  $pid = open2(*Reader, *Writer, "tethereal -V -i -" ); # open tethere
+al reading on STDIN
  my $pcap_dumper_t = Net::Pcap::dump_open($pcap_desc, *Writer); # wri
+te to Writer FH
...
  Net::Pcap::dump_close($pcap_dumper_t);
  $got = <Reader>;
  print $got;