perl -MNet::Ping -e '$main::host="localhost";while(1){print "$host is back\n" if Net::Ping->new()->ping($host);sleep(1)}' пак стига, но това което не е описано, а според мен е ценно, то е, че можеш да сканираш по-бързо от който и да е скенер (по просатата причина, че те имат поне 0.200 секунди минимум timeout, зада не се стига до дос).
визирам следното: $ping->{"timeout"} = 0.001