#!/usr/bin/perl -w

use Net::Pcap;

my $err = '';

my $pcap = Net::Pcap::open_live('lo', 1024, 1, 0, \$err);

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

Net::Pcap::close($pcap);

sub process_packet {
	my($user_data, $header, $packet) = @_;
	local $SIG{TERM} = \&sigterm;
	kill TERM => $$;
}

sub sigterm {
	print "SIGTERM\n";
}