sub getFiles {
    my $strDir = shift;
    my @aryFiles = ();
    
    # add all .xml files
    if (opendir (MYFILEHANDLE, $strDir)) {
        @aryFiles = map { "$_" } grep { /.xml/i} readdir MYFILEHANDLE;
    }
    else {
        print "Error: Can't read $strDir: $!");
    }
    
    close (MYFILEHANDLE);

    return @aryFiles;
}