#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $xml = 'XML::LibXML'->load_xml(location => shift);
for my $username ($xml->findnodes('//username')) {
    print $username->textContent, "\n";
}