#!/usr/bin/perl -w 

for (1..7000){
     system("nc -vv $ARG[1] -z ${_}");
}