#!/usr/bin/perl

use warnings;
use strict;

use XML::Simple;
use Data::Dumper;

undef $/;
open( FH, shift );

my $raw_file = <FH>;

my $xml = XMLin( $raw_file, 
	 		     forcearray => [],
			     suppressempty => undef 
			   );

print Dumper ( $xml );
print $xml->{'artist'};
print "\n";