in reply to Capture filename

while (defined(my $fn = readdir($dh))) {
    ...
}

[download]

readdir

In Section Seekers of Perl Wisdom