perl -e '$a=`nmap -sS -P0 -p 22 --host-timeout 30s -oG - hostname.domain`; if($a=~/Status: (\w+).*?Ports: 22\/(\w+)/gsi) {print "Host status: $1, SSH service: $2\n"} else {warn $a}'