That's what the ol'

select((select FH, $|=1)[0]);
[download]

business is all about, so you could do

map { open DIR, $_; @{ ( [ readdir DIR ], close DIR  )[ 0 ] } } @dirli
+st;
[download]

Hmmm... Not exactly perspicuous.