#!/usr/bin/perl
use strict;
use warnings;
use Socket;
$| = 1;
# BroadCast messager
# Default params
my $PORT = 9191;
my $ADDR = '10.17.23.255';

socket(UDP, PF_INET, SOCK_DGRAM, getprotobyname('udp')) or die "socket() failed: $@";
setsockopt(UDP, SOL_SOCKET, SO_BROADCAST, 1) or die "setsockopt() failed: $@";
my $dest = sockaddr_in($PORT,inet_aton($ADDR));

my $buff = undef;
for(my $i = 1; $i <= 9; $i++) {
	send(UDP, "NumPacket_$i", 0, $dest) or die "send() failed: $@";
}

#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;
$|++;

print "Listening on UDP port: 9191\n";

my $socket = IO::Socket::INET -> new (
    LocalPort  => 9191,
    Broadcast  =>  1,
    Proto      => 'udp',
    Blocking   => 1
    )
or die "Failed to bind to socket: $@";

my $mess; 
  
while ($socket -> recv ($mess, 1024)) { print "Msg: $mess\n" }

#!/usr/bin/perl
use strict;
use warnings;
use Socket;

# server

socket(SOCK, PF_INET, SOCK_DGRAM, getprotobyname('udp')) or die "socket: $!";
setsockopt(SOCK, SOL_SOCKET, SO_BROADCAST, 1) or die "setsockopt() failed: $@";
bind(SOCK, sockaddr_in(9191, 10.17.23.32)) or die "bind: $!";
my $hisaddr = recv(SOCK, my $buff, 1024, 0);
print "[+] $hisaddr and say: $buff\n";