use strict;

use threads;
use threads::shared;
my $signal = undef;
share($signal);
my $fct = 
		sub {
			require Blah; Blah->import(); 
			$signal = 1;

		};
my $thr = threads->new($fct);
while (!$signal) {
	print "Sleeping and waiting for signal from slave thread\n";
	sleep(1);
}
print "Got message from slave thread\n";
$thr->join();

##</code><code>##

Sleeping and waiting for signal from slave thread
Thread 1 terminated abnormally: Can't locate Blah.pm in @INC (@INC contains: etc...
Sleeping and waiting for signal from slave thread
Sleeping and waiting for signal from slave thread
etc...