Eureka! That was perfect and I actually get it now. Thanks MUCH.

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