use strict;
use warnings;
use Posix;
use File::Find;

sub findfile
{
	my @Result = ();
	my $Start = $_[0];
	
	print "Start: [$Start]\n";
	
	if (scalar(@_) >= 2) {

		foreach my $x (1 .. scalar(@_) - 1) {
			
			
			find(
					sub {
											
						my @finds = grep { $_ =~ /$_[$x]/ } ($File::Find::name);
											
						if (scalar(@finds) > 0) {
							my $find=$finds[0];
							
							if ($find eq $File::Find::name) {
								push @Result, $File::Find::name;
								return;
							}
						}
					
					},
					$Start
				);
			
		}
		
		return @Result;
	}
}

my @Paths = findfile("C:/Program Files (x86)/Nimsoft/bin", "*.exe", "*.txt");

foreach ( @Paths ) { print "$_\n"; }

##</code><code>##

C:/Program Files (x86)/Nimsoft/bin
C:/Program Files (x86)/Nimsoft/bin/nimalarm.exe
C:/Program Files (x86)/Nimsoft/bin/nimboss.exe
C:/Program Files (x86)/Nimsoft/bin/nimbus.exe
C:/Program Files (x86)/Nimsoft/bin/nimqos.exe
C:/Program Files (x86)/Nimsoft/bin/nimqosdefinition.exe
C:/Program Files (x86)/Nimsoft/bin/pu.exe
C:/Program Files (x86)/Nimsoft/bin
C:/Program Files (x86)/Nimsoft/bin/nimalarm.exe
C:/Program Files (x86)/Nimsoft/bin/nimboss.exe
C:/Program Files (x86)/Nimsoft/bin/nimbus.exe
C:/Program Files (x86)/Nimsoft/bin/nimqos.exe
C:/Program Files (x86)/Nimsoft/bin/nimqosdefinition.exe
C:/Program Files (x86)/Nimsoft/bin/pu.exe