#!/usr/local/bin/perl -w

use Net::Ping;

$host = "138.238.227.90";
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();