#!/usr/bin/perl

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

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


}