Select Code to Download

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

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