Alternatively, there's an or rule:

use File::Find::Rule;

my @files = File::Find::Rule->file()
                            ->or( File::Find::Rule->name( '*.xml' )
                                                  ->name( '*.htm' ) )
                            ->in( "." );
     
foreach $fname (@files)
{
   print $fname;
}
[download]

Ug, let's make that less horizontal:

use File::Find::Rule;

sub FFR () { 'File::Find::Rule' }

my @files = FFR->file()
               ->or( FFR->name( '*.xml' )
                        ->name( '*.htm' ) )
               ->in( "." );
     
foreach $fname (@files)
{
   print $fname;
}
[download]

You probably don't need or for name since you can do ->name( '*.xml', '*.htm' ) and ->name( '*.{xml,htm}' ), but I included this as an example in case you needed to join other rules.