#!/usr/bin/perl

use Net::Pcap qw( :functions );

$|=1;

my $err = '';
my $dev = lookupdev(\$err);

my $pcap = open_live( $dev, 1024, 1, 0, \$err );

loop( $pcap, 10, \&process_packet, "just for the demo" );

pcap_close( $pcap );

sub process_packet {
    my($user_data, $header, $packet ) = @_;
}
[download]