tcpdump like implementation of Perl

tcpdump.pl

#!/usr/bin/env perl -w
use strict;
use Net::Frame::Dump::Online2;
use Net::Frame::Simple;

my $d = Net::Frame::Dump::Online2->new( dev => 'en1', );

$d->start;

while (1) {
    if ( my $f = $d->next ) {
        print Net::Frame::Simple->newFromDump($f)->print, "\n";
    }
}

$d->stop;

__END__