Show your code so far. If you don't have any, start with this:

#!/usr/bin/perl
use strict;
use warnings;
[download]

Then, have a look at File::Find or File::Find::Rule to find files and XML::LibXML to handle XML.

Alexander