#!/bin/perl -w
use strict;

use XML::Simple;                # depends on XML::Parser
use Data::Denter;               # just to check what's read in by

my $data= XMLin( \*DATA); # read the data, you would use "./$file"
print Denter( $data), "\n";     # just checking

__DATA__
<users>
  <user>
    <name>Joshua Kruck</name><username>krujos</username><password>jonny5</password>
  </user>
  <user>
    <name>John Doe</name><username>jdoe</username><password>jane</password>
  </user>
</users>

##</code><code>##

%    user => %
        John Doe => %
            password => jane
            username => jdoe
        Joshua Kruck => %
            password => jonny5
            username => krujos