Select Code to Download

#!/usr/bin/perl

...

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

$VAR1 = {
          'LOGIN' => {
...
                     'address' => '111 test street'
                   }
};