- or download this
#!/usr/usc/perl/5.6.1/bin/perl
use strict;
...
my $len = length $pkt;
warn "$hdr->{len} $hdr->{caplen} $len\n";
}
- or download this
root@a05s24:~/scanner# perl dn3.pl
packet!
1514 1514 1514
1514 1514 1514
- or download this
23:27:26.508174 IP 37.X.X.X.57114 > a05s24.sunrpc: UDP, length 5550