Conexão do servidor com o Perl não usando soquete [fechado] - perl, rede

Eu preciso me conectar a um servidor de outro servidor usando Perl. Não estou precisando de uma conexão de socket, apenas testando a conexão para ter certeza que posso abri-la. Procurando alguma ideia de como fazer isso?

Respostas:

Talvez um bom começo?

perl -le "
system("ping -c1 $ARGV[0] &>/dev/null");
if ($? == 0) {
print "Remote is pingable"
}
else{
print "Remote non pingable"
}
" google.com

ou usando operador ternário:

perl -le "
print system("ping -c1 $ARGV[0] &>/dev/null") ?
"Remote non pingable" : "Remote is pingable"
" google.com