Select Code to Download

C:\test>perl -Mthreads -E"async{ qx{perl -E\"sleep 5; die q[Now I'm do
+ne];\"} }->detach; select'','','',0.1; die 'I\'m done'"
I'm done at -e line 1.

C:\test>Now I'm done at -e line 1.