Select Code to Download

use strict;
use warnings;
...
 dir3/
  a.png
 f.txt

base/dir1/file1.txt
base/dir1/a.png
...
base/dir1/q.txt
base/dir3/a.png
base/f.txt

use strict;
use warnings;
...

    print join '/', @dirs;
}