$data = $xml->XMLin ("good.xml");
.
.
.
for (@{$data->{ETPT}{SERVER}}) {
        print "$_->{IP}\n\t$_->{RESPONSE}\n";
}