my $xmldata = IO::Handle->new->fdopen(fileno(DATA),'r');
# print $xmldata->getline();
my $cr = XMLin( $xmldata );

##</code><code>##

my $cr = XMLin( do { local $/ ; <DATA> } );