C:\test>perl -Mthreads 
-wle"async{require CGI; print 'T:'.%{CGI::}}->detach; sleep 2; print 'M:'.%{CGI::};"

T:61/128
M:0

##</code><code>##

C:\test>perl -Mthreads 
-wle"async{ use CGI; print 'T:'.%{CGI::} }->detach; sleep 2; print 'M:'.%{CGI::};"

T:62/128
M:62/128