#!/usr/bin/perl 
 
use strict;
use XML::Simple;
use Data::Dumper;

my $xml= XMLin( \*DATA);
print Dumper( $xml);

__DATA__
<my> document here, oh </my>