$ perl sshping.pl localhost; echo $?
Connecting to port 22...
Connected.
SSH-1.99-OpenSSH_x.xx Debian-xxx
0