#!/usr/bin/perl -w

use IO::Socket;

sub sock()
	{
	$sock= new IO::Socket::INET
		(
		PeerAddr => $_[0],
		PeerPort => $_[1],
		Proto    => 'tcp'
		);
	if ($sock){print "port $start_port open\n";}
	}

($host,$start_port,$end_port) =  @ARGV;
for(;$start_port<$end_port;$start_port++)
{
&sock($host,$start_port);
}