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";
}