use threads;

async( sub{ system "dir $_" } ) 
    for grep -d, glob '.\*';