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