@files = File::Find::Rule->file()
        ->name( "*.wma", "*.wmv" )      
        ->in( 'C:\Test\Calls\Archive', 'C:\Test\Calls\History');