#!/opt/bin/perl
use Socket;

 $name = $ARGV[0];
 $timeout=5;

 $i = gethostbyname($name);
 if ($i) {
    $inet = inet_ntoa($i) ;
    print "inet: $inet \n";
    open(O1, "/usr/sbin/ping $name $timeout|");
    my($ans) = <O1>; close($ans);
    if ($ans =~ /is alive/) {
      print "OK: inet_ntoa:" .  inet_ntoa($i) . "\n";
    } else {
      print "failed ping\n";
    }
 } else {
    print "failed gethostbyname\n";
 }

