#!/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__

##</code><code>##

  <div id="main">
    <div class="A">
        ...
    </div>
    <div class="A">
        ...
    </div>
    <div class="A">
        ...
    </div>
    <div class="B">
        ...
    </div>
    <div class="B">
        ...
    </div>
    <div class="B">
        ...
    </div>
  </div>

##</code><code>##

$VAR1 = {
          'div' => {
                     'A' => [
                              { .. },
                              { .. },
                              { .. },
                            ],
                     'B' => [
                              { .. },
                              { .. },
                              { .. },
                            ]
                   }
        };