opendir DIR, '.' or die $!;
while( my $entry = readdir DIR ){
    if( ... ){
    }
}
...