use strict;

use threads;
use threads::shared;

my $fct = 
		sub {
#			eval {require Blah; Blah->import()} or print $@; 
			require Blah; Blah->import(); 
		};
my $thr = threads->new($fct);
#$thr->join();

##</code><code>##

Perl exited with active threads:
        1 running and unjoined
        0 finished and unjoined
        0 running and detached

##</code><code>##

Thread 1 terminated abnormally: Can't locate Blah.pm in @INC (@INC contains: etc...