my $filename = 'test.xml';
open my $fh, '<', $filename
    or die "Couldn't read '$filename': $!";
my $xml_as_hash = { xml => do { local $/; <$fh> }};