if ( ! system ("nc -z -w 2 myexample.com 22 2> /dev/null")) { print "ok"."\n" }