opendir (DIR, "$MyDir") or die "$!";
		my @Documents = grep {/\.[docx|pdf]$/}  readdir DIR;
		my $number_of_files = scalar @Documents;
		print "Total number of files found in folder: $number_of_files\n";
	close DIR;