#!/usr/bin/perl

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

my $xml = XMLin('login.xml');
print Dumper($xml);