{ 
my $ttyno = 1;
sub DB::get_fork_TTY{
	$DB::fork_TTY = "/dev/pts/" . $ttyno++;
}
}