Help for this page

Select Code to Download

Select or download this

sub test_new {
  my ($mydir) = @_;
...
  closedir(DIR);
  return $new_one;
}