Select Code to Download

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

use vars $ttyno;

...
sub DB::get_fork_TTY {
    $DB::fork_TTY = "/dev/pts/" . $main::tty;
}