my $xml = XMLin(\*DATA);