> #!/usr/bin/perl -W
> use Net::RawIP;
> use Data::Dumper;
>
> sub pcap_recv_callback {
>     $recv_rawip = new Net::RawIP({'udp' => {}});
>     $recv_rawip->bset($_[2], 14);
>     printf("ip protocol=%d\n", $recv_rawip->get({'ip' => ['protocol']}));
> }
>
> my $rawip = new Net::RawIP();
> my $pcap = $rawip->pcapinit('lo', 'dst port 68', 1500, 300);
>
> my @temp;
> loop($pcap, 1, \&pcap_recv_callback, \@temp);