Select Code to Download

use warnings;
use strict;
...
print $line;
exit 0 if $line =~ /SSH/;
exit 1;

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

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

$ if perl sshping.pl localhost; then echo up; else echo down; fi
Connecting to port 22...
connect() failed: Connection refused at sshping.pl line 14.
down