opendir(hand,$ARGV[0]);  #replace ARGV[0] with your DIR
	@files = readdir(hand);
	closedir(hand);

	foreach(@files){
		if(/\.log$/i) {             									    #if the filename has .log at the end
			push(@logfiles,$_);  
		}
	}