Select Code to Download

origin
    dir1
...
        subdir3
        file1
        file2

use strict;
use File::Copy;
...
    } @list;
    $tree = $tree - 1;
}