use warnings;
use strict;
use Socket;
use threads;
use threads::shared;

my @trl;
my $p = '135';
my $threads = 2;
my @ipr : shared = qw(192.168.1.1 192.168.1.2 192.168.1.3);

for(0..$threads) {$trl[$_] = threads->create(\&check, $_);}
for(@trl) { $_->join; }

sub check {
my $ip;
while(@ipr) {
	{lock(@ipr); $ip = shift(@ipr);}
	socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
	my $iaddr = inet_aton($ip);
	my $paddr = sockaddr_in($p, $iaddr);
	connect(SOCK, $paddr) ? (print "$ip [connect]\r\n") : (print "$ip [error]\r\n");
        close(SOCK);
	}
}