Help for this page
chdir $directory or die "Can't cd to $directory: $!"; opendir my $dh, '.' or die "Can't open $directory: $!"; ... } closedir $dh;
if ( $file =~ /^\Q$filemask\E/i ) { push @chk_files, $file; print "\n\t$file "; } # End of IF