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

my $filename = shift or die "Usage: decode <filename>\n";
my $xmlin;

open ($xmlin, '<', $filename) or die "Error: Can't open input file!\n";

my $ref = XMLin( $xmlin,
    # TODO: Add correct option
);

use Data::Dumper;

print Dumper $ref;

__END__