#!/opt/perl5/bin/perl
# What the heck is going on here?!

use Net::Ping;

$host1="hqlinuxdev.hj-int";
$host2=hqlinuxdev.hj-int;
$host3='hqlinuxdev.hj-int';

print "condition1\n" unless pingecho("$host1");
print "condition2\n" unless pingecho("$host2");
print "condition3\n" unless pingecho("$host3");