#! /opt/ActivePerl-5.8/bin/perl

#use forks;
#use forks::shared;
use Net::Ping::External qw(ping);

if (! ping(host => "10.163.123.98", timeout => 2) ) {
      print "ping ko\n";
    }
else
  {
  print "ping ok \n";
}

exit 1;