Help for this page

Select Code to Download

Select or download this
```
  chdir $file;
  chdir $dir;
```

Select or download this

#!/usr/bin/env perl 
use strict;
...
    mkdir $subdir;
    ok (-d $subdir);
}