use strict; use warnings; use File::Find::Rule; my $directory = 'C:\Test\WMA_calls'; my $output_file = 'C:\Test\Results\output.txt'; my $count=0; my @files; while($count < 2) { print $count; $directory = 'C:\Test\Calls\Archive' if $count eq 0; $directory = 'C:\Test\Calls\History' if $count eq 1; @files = File::Find::Rule->file() ->name( "*.wma", "*.wmv" ) ->in( $directory ); $count++; } if(@files) { open FILE, ">", $output_file or die "Can't open file, $output_file: $!"; foreach(@files) { print FILE "$_\n"; } close FILE; } else { print "\n\nError!! No files found"; } exit 0;