#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11146781
use warnings;
use Path::Tiny;
use IO::Socket;

my $port = 3143; # FIXME to my https://rosettacode.org/wiki/Hunt_the_Wumpus#Perl
my @ips = map "192.168.1.$_:$port", 10 .. 20; # FIXME for testing
my $logfile = path( "/tmp/d.11146781,log" );  # FIXME filename
my $timeoutin = 0.1;                          # FIXME short for testing
my $log = localtime() . " begin\n";
my %sockets;

$sockets{ $_ } = IO::Socket::INET->new(
  PeerAddr => $_,
  Blocking => 0 ) or
  $log .= "$_ fail $@\n", next for @ips; # start all connections
select undef, undef, undef, $timeoutin; # the time allowed
$log .= "$_ " . ( $sockets{$_}->connected ? "ok\n" : "failed\n" )
  for grep $sockets{$_}, @ips;
$logfile->spew( $log, localtime() . " end\n" );
print $logfile->slurp; # FIXME for testing
#rename here...

##</code><code>##

Tue Sep 13 10:26:54 2022 begin
192.168.1.10:3143 failed
192.168.1.11:3143 failed
192.168.1.12:3143 ok
192.168.1.13:3143 ok
192.168.1.14:3143 failed
192.168.1.15:3143 ok
192.168.1.16:3143 failed
192.168.1.17:3143 failed
192.168.1.18:3143 failed
192.168.1.19:3143 failed
192.168.1.20:3143 failed
Tue Sep 13 10:26:54 2022 end