Широковещательная передача

use IO::Select;
use IO::Socket;

my $socket = IO::Socket::INET->new(Proto=>'udp');
$addr = "192.168.1.255";
$port = getserverbyname("echo","udp");
$socket->sockopt(SO_BROADCAST()=>1);
my $dest = sockaddr_in($post,inet_aton($addr));

my $select = IO::Select->new($socket,\*STDIN);
while(1){
my @ready = $select->can_read;
foreach(@ready){
do_socket() if $_ eq $socket;
}
}
sub do_socket{
my $data;
my $addr = recv($socket,$data,1024,0);
my ($port,$peer) = sockaddr_in($addr);
my $host = inet_ntoa($peer);
print "$peer\n";
}

system(nmap...