#!/usr/bin/perl
use strict;
use warnings;
my $oDump;
my $dev = shift || die("Specify network interface to use\n");
use Net::Frame::Dump::Online2;
use Net::Frame::Simple;
use Class::Gomor qw($Debug);
$Debug = 3;
$oDump = Net::Frame::Dump::Online2->new(
dev => $dev,
file => 'save-example-online2.pcap',
overwrite => 1,
);
$oDump->start;
<>;
$oDump->stop;