thank you very much shaun2k2! that was very helpful... i appreciate it :)
yay!, now i have .pl to capture packets...
use Net::Pcap;
$count = 10;
my $err;
my $dev=Net::Pcap::lookupdev(\$err);
if (defined $err) {
die ('Unable to determine network device for monitoring - ',$err);
}
my ($address, $netmask, $err);
if (Net::Pcap::lookupnet($dev, \$address, \$netmask, \$err)) {
die 'Unable to look up device information for ', $dev, ' - ', $err;
}
print STDOUT "$dev: addr/mask -> $addr/$mask\n";
$object = Net::Pcap::open_live($dev, $snaplen, $promisc, $to_ms, \$err);
Net::Pcap::loop($object, $count, \&callback_function, $user_data);
Net::Pcap::close($object);
sub callback_function {
my ($user_data, $header, $packet) = @_;
#Blah Blah Blah with my data =)
}