Help for this page
select((select FH, $|=1)[0]);
map { open DIR, $_; @{ ( [ readdir DIR ], close DIR )[ 0 ] } } @dirli +st;