my $ref = XMLin(\*DATA);