1) There are filesystem modules already out there. 2) You might want to consider using a more generic recursive structure.
3) To answer your question, check its a directory and not a file.
while ($yearly = readdir(TOTALHANDLE)) {
next unless (-d $yearly);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
