Re: perl script to print just directory names

[blue_cowdawg]

What extra line? Just tested your code on my system and don't see an extra line. There *is* however a "blank line" between the last line the script generates and the command line prompt but I think that's a function of the shell.

Some more comments:

Not sure why you are doing this:

while(defined($file = readdir($dh)))

when

while($file = readdir($dh))

should suffice.

You do realize your array is going to be empty when your loop is done?