Select Code to Download

Select or download this

$ perl -le "sub LUCY(){66} use threads; async{ print join q/ /, thread
+s->tid, LUCY(), \&LUCY() } for 1..3; sleep 1; "
1 66 SCALAR(0xb6c0d4)
2 66 SCALAR(0xbf7144)
...
        0 running and unjoined
        3 finished and unjoined
        0 running and detached

Select or download this

$ perl -le "use Readonly; Readonly::Scalar $LU => 66; use threads; asy
+nc{ print join q/ /, threads->tid, $LU, \$LU } for 1..3; sleep 1; "
1 66 SCALAR(0xb84cfc)
2 66 SCALAR(0xc1bbec)
...
        0 running and unjoined
        3 finished and unjoined
        0 running and detached