Select Code to Download

struct directory => {
   name   => '$',
...
   name   => '$',
   permis => '$',
};

#@direc contains a list of directories

...
   print $dir->$fi->name;
   }
}