Select Code to Download

use threads();

{
...
foo is quux
main: coderef = CODE(0x8060674)
foo is bar

use threads();
use threads::shared;
{
...
foo is quux
main: coderef = CODE(0x80fe448)
foo is quux

$ perl thrcl.pl
Invalid CODE attribute: shared at thrcl.pl line 5
BEGIN failed--compilation aborted at thrcl.pl line 5.