17 lines
369 B
Perl
Executable File
17 lines
369 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
#Perl Script to catch multicast packets.
|
|
use strict;
|
|
use IO::Socket::Multicast;
|
|
|
|
my $socket = IO::Socket::Multicast->new(LocalPort=>11111, ReuseAddr=>1)
|
|
or die "Can't start UDP server: $@";
|
|
|
|
$socket->mcast_add('225.6.7.8');
|
|
|
|
my ($datagram,$flags);
|
|
while ($socket->recv($datagram,1024,$flags)) {
|
|
print "**Shark** $datagram\n";
|
|
}
|
|
|
|
$socket->close();
|