Select Code to Download

$data = XMLin( $xml, ForceArray => [ qw(Layer) ] )

my $layers = $data->{Capabilities}->{Layer};
for my $layer ( ref $layers eq 'ARRAY' ? @$layers : ( $layers ) ) {
    # do something to each Layer
}