sub worker_sub {
	croak "testerror";
}

sub worker {
	eval { worker_sub() };
	if ($@) {
		croak $@;
	}
	
	sleep 2;
}

my $mythread = threads->create( \&worker );
...