use threads;
use threads::shared;
use Thread::Running;

##</code><code>##

sub search {

	# ... code above here takes in the params

	eval {		
		eval("use " . $enginename);
		$enginehandler = $enginename->new();
		$results{$engine} = $enginehandler->search($foo, $bar);
	};

}

##</code><code>##

share(%results);

##</code><code>##

threads->create(\&search, $foo, $bar);