#!/usr/bin/perl -w

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

my $folder = XMLin('folder.xml');

for (keys(%{$folder->{FOLDER1}})) {
  print $folder->{FOLDER1}->{$_}->{chmod},"\n";
}

#print Dumper($folder);