use File::Find;

my $localdir = '[PARENT DIRECTORY]';

find(
sub { print $File::Find::name, "\n" if /\.xml$/ },
$localdir);