use Net::Ping;
use CGI qw/:standard/;