#!/usr/bin/perl
use warnings;
use strict;
use XML::Simple qw/XMLin/;

my $file = shift || die "Must supply xml file";
open FH, '<', $file or die "Cannot open $file for reading: $!";
my $document = do { local $/; <FH> };
XMLin($document);