~/MyPerl/
    |
    |__ result
    |__ dir1
    |__ dir2
    |__ dir3
    |__ ...
    |__ dir50