sub _receive
{
	my $port = shift;	
	my $sock = new IO::Socket::INET (LocalPort => $port,Proto => 'tcp',Listen => 1,Reuse => 1,);
	die "Could not create socket: $!\n" unless $sock;
	$listeningCreated = 1;
	
	while(not $isFinishing)
	{
		my $new_sock = $sock->accept();
		print "New updates from targets arrival:\n";
		while(<$new_sock>) {
			print $_;  
		}
	}
    close($sock);
	return 0;
}