chdir $directory or die "Can't cd to $directory: $!";
opendir my $dh, '.' or die "Can't open $directory: $!";

while (my $file = readdir $dh) {
	print "$file\n";
}

closedir $dh;

##</code><code>##

	if ( $file =~ /^\Q$filemask\E/i )  {
		push @chk_files, $file;
		print "\n\t$file ";
	} # End of IF