$dirname =	"subdir/subsubdir/";

opendir DIR, $dirname;
#my @files = grep { $_ ne '.' && $_ ne '..' } readdir DIR;  #linux system
my @file= readdir DIR;  #windows system
closedir DIR;

foreach my $file (@file) {
	if ($file ne "." && $file ne "..") {
		print "$file\n";
		
		if (open(MyInputFile, $dirname.$file)) {
			print "InputFile '",$file,"' opened OK \n";
		}
		else {
			print "Cannot open InputFile '",$file,"'\n";
			exit;
		}
	}
}