open(ALIVEIP, ">aliveip.list");
close(ALIVEIP);
open(ALIVEIP, "aliveip.list");

##</code><code>##

while ( my $line = <PINGALLIP>) {
   print ALIVEIP $line if $line =~ /is alive/;
}