#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $ref = XMLin(\*DATA);
print Dumper($ref);


<root>
  <user>
    <name>bob</name>
    <pass>pass</pass>
  </user>
  <user>
    <name>bob2</name>
    <pass>pass</pass>
  </user>
</root>