$ perl sshping.pl localhost; echo $?
Connecting to port 22...
connect() failed: Connection refused at sshping.pl line 14.
111