$p = Net::Ping->new("tcp"); [download]
In reply to Re: Net::Ping issues by zentara in thread Net::Ping issues by chris_henderson