opendir(DIR,$directory_to_check) || die "cannot open directory $directory_to_check: $!";

##</code><code>##

opendir(my $dir,$directory_to_check) || die "cannot open directory $directory_to_check: $!";
  while (defined($this_file = readdir($dir))) {