my $dh; opendir $dh, $startDir || die $!; while (my $entry = readdir($dh)) {
Or consider using DirHandle:
use DirHandle;
my $dh = DirHandle->new($startDir) or die $!; while (defined(my $entry = $dh->read())) { ...
Edward Moy
[EMAIL PROTECTED]
---------------------------------------------------------------
(This messages is from me as a reader of this list, and not a statement from Apple.)