gistfile1.txt

┌─[tadzik@yavin4]─[~] 
└─[%]─> cat threads.nqp 
say("alive");

my $x := 5;

my $a := sub foo() {
    say($x);
    say(5);
}


my $b := pir::new__PSP('Task', $a);
pir::schedule__0P($b);
pir::wait__0P($b);

say(7);
┌─[tadzik@yavin4]─[~] 
└─[%]─> parrot-nqp threads.nqp 
alive
┌─[tadzik@yavin4]─[~] 
└─[%]─> echo $?
1