Select Code to Download

# This is the custom debugger:
{ package DB;
...

$|++;   # Turn off buffering, to make the control flow clearer
hello();

$ perl d.pl
Hello, World!
...
World!
=== Leaving sub main::world
=== Leaving sub main::hello

  BEGIN {$^P = 1}

BEGIN {
  return if $^P;  # If the debugger is running, leave well alone
...
  };
}