Select Code to Download

$p->ping($host [, $timeout]);

my @array = qw(4.4.4.4 127.0.0.1 123.333.333.333);

use warnings;
use strict;