#! perl -slw
use strict;
use threads;

sub testit {
     do 'test.pl';
}

async {
    print 'before testit()';
    testit();
    print 'after testit()';
    doit();
}->join;