sub DB::get_fork_TTY {
    open XT, q[3>&1 xterm -title 'Forked Perl debugger' -e sh -c 'tty 1>&3;\ sleep 10000000' |];
    $DB::fork_TTY = <XT>;
    chomp $DB::fork_TTY;
}


##</code><code>##


perl -MMyDebug -d script.pl


##</code><code>##


perl -d script.pl


##</code><code>##


$DB::inhibit_exit = 0;