#!/usr/bin/perl

for ($i=1;$i<65535;$i++){

$a=`timeout -s KILL 0.3s wget "http://10.66.4.1:$i" --post-data="fuck" --tries=1 -O index$i 2>&1 &`;

print "..............................$a.........................";

}