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