Select Code to Download

foreach my $host (@iparray) {
        if ( $p->ping( $host )){
        print " $host is alive\n ";

#!/usr/bin/perl
use warnings;
...
#    print ONLINE "$host online" unless $p->ping($host,0);
}
$p->close();