use Socket;
use Sys::Hostname;

my $broadcast = '10.0.1.255';

my $proto = getprotobyname ('udp');

my $diaddr = gethostbyname($broadcast);
my $dpaddr = sockaddr_in (8997, $diaddr);

socket (SOCKET, PF_INET, SOCK_DGRAM, $proto);
bind (SOCKET, $dpaddr);

$| = 1;
while (true) {
   $addr = recv (SOCKET, $frame, 1500, 0);
     print $frame;
}