my $pid;
$SIG{CHLD} = 'IGNORE';
unless($pid = fork)
{
	while(1)
	{
		sleep 90;
		warn "Output taking longer then 90 seconds, waiting";
	}
	exit;
}
….. Do DBI stuff
kill(9,$pid);