#!/usr/bin/perl -w

use strict;
use XML::Simple;

my $xml = XMLin("./months.xml");

for my $lang (qw(en nl de fr)) {
        print $xml->{$lang}{month}[8],"\n";
}