perl -MIO::Socket::INET -le "do{$s=IO::Socket::INET->new(PeerAddr=>'127.0.0.1',PeerPort=>$_,Timeout=>1);print $s? $_.' OPEN' : $_.' CLOSED'}for ARGV[0]..$ARGV[1]" 1 1024