{ my $ttyno = 1; sub DB::get_fork_TTY{ $DB::fork_TTY = "/dev/pts/" . $ttyno++; } } #### use vars $ttyno; for my $fork (0 .. $forks) { if (fork) { } else { # in child $ttyno = $fork; } } sub DB::get_fork_TTY { $DB::fork_TTY = "/dev/pts/" . $main::tty; }