main::(perldebugexample2.pl:3): foo();
  DB<1> n
Yay!
main::(perldebugexample2.pl:4): foo();
<$x = 42; if($x==42){print "DANGER Will Robinson!\n"}else{print "Yay!\n";}}   

  DB<2> n
DANGER Will  Robinson!