use v6;

port_check( ['perlmonks.com', 'fail.com', 'perlmonks.org'], 22 );

sub port_check( @checknodes, $port )
{
	my @promises = @checknodes.map( -> $host {
		IO::Socket::Async.connect( $host, $port )
	});

	await Promise.allof( @promises );

	for @checknodes Z @promises -> [$node, $promise]
	{
		if $promise.status ~~ Kept
		{
			with $promise
			{
				my $peer      = "{.result.peer-host}:{.result.peer-port}";
				my $socket    = "{.result.socket-host}:{.result.socket-port}";
				"$socket connected to $peer".say;
			}
		}
		else
		{
			"not connected to $node:$port".say;
		}
	}
}