eval {
 	local $SIG{ALRM} = sub { die 'timedout' };
	alarm $time_to_wait;
	waitpid($pid, 0);
	$exit_code = $?;
	alarm(0);
}
if ($@) {
	$exit_code = ($@ =~ /timedout/)? 100 : 200;
}