Re^5: Read the attribute from xml file

[Anonymous Monk]

and typos, oh boy

while( my( $att, $attref ) = each %{ $event->{attribute} }){
    print "$att required " if $attref->{required};
}