#!/usr/bin/perl
use threads;
use Socket;

%ipr = ('192.168.0.1' => '1',
	'192.168.0.2' => '2',
	'192.168.0.3' => '3');


$p='135';

$i =0;

foreach $ip (keys %ipr){

	socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
	$thr[$i]=threads->create(\&test_connect, $ip, $p);

	$iaddr = inet_aton($ip);
	$paddr = sockaddr_in($p, $iaddr);
	close(SOCK);
	$i++;
}

sub test_connect {
	$iaddr = inet_aton($ip);
        $paddr = sockaddr_in($p, $iaddr);
	if(connect(SOCK, $paddr)) {
                print $ip." [connect]\r\n";

		return  $ip;

        }
        else {
                print $ip." [error]\r\n";
                return $ip;
        }

        # send (SOCK, "", 0);
	return;
}