Distinzione tra file e dir

[Mich_]

Ma negli elementi del vettore @list, c'e` tutta la path?

Forse devi fare:

@list = readdir($path);
for(my $i=0; $i<@list; $i++) {
  if(-d $path$list[$i]) print $list[$i];
}