use strict; use warnings;         # hallelujah
use threads; use threads::shared; # threads, oh how I hate

my $lockvar : shared = 0;

my $thrHandle;
{
    lock $lockvar;
    $thrHandle = threads->create( \&exampleSub );
    cond_wait ($lockvar);
    print "parent running\n";
}
$thrHandle->join();

sub exampleSub {
    print "child init\n";
    sleep 2;
    print "child init finished\n";
    {
        lock $lockvar;
        cond_signal($lockvar);
    }
    print "child running\n";
}

##</code><code>##

use strict; use warnings;         # hallelujah
use threads; use threads::shared; # threads, oh how I hate
use Thread::Queue;

my $q = Thread::Queue->new;


my $thrHandle = threads->create( \&exampleSub );
$q->dequeue;
print "parent running\n";
$thrHandle->join();

sub exampleSub {
    print "child init\n";
    sleep 2;
    print "child init finished\n";
    $q->enqueue(0);
    print "child running\n";
}