perl -Mthreads=async -le"async{ system 'dir'; } for 1 .. 100"