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