#!/usr/bin/perl -w
use strict;
use File::Slurp qw(read_file);
use XML::Dumper qw(pl2xml);

my @DIRECTORIES = (
  ['01-09-2012','/home/user/test/01-09-2012'],
  ['01-11-2012','/home/user/test/01-11-2012'],
  ['12-13-2011','/home/user/test/12-13-2011'],
);

my %DATES;
for my $dir (@DIRECTORIES) {
  $DATES{$dir->[0]} = _slurp_directory($dir->[1]);
}

my $request = { TYPE => 'UPLOAD',
                DATA => \%DATES,
};

my $xml = pl2xml($request);
print $xml;

exit 0;

sub _slurp_directory {
  my $directory = shift;
  my %DIR;
  if (opendir my $dh, $directory) {
    my @files = readdir $dh;
    closedir $dh;
    
    for my $file (@files) {
      next if $file eq "." || $file eq "..";
      $DIR{$file} = read_file "$directory/$file";
    }
  }
  return \%DIR;
}