Select Code to Download

sub DB::get_fork_TTY {
...
    chomp $DB::fork_TTY;
}

perl -MMyDebug -d script.pl

perl -d script.pl

$DB::inhibit_exit = 0;