&#36p = Net::Ping->new();
print(&#36p->ping(gethostbyname(&#36host),5));