##
DB<6> $x = 43;
##
##
use strict;
foo();
foo();
sub foo { my $x; $x = 43; if($x==42){print "DANGER Will Robinson!\n"}else{print "Yay!\n";}}
##
##
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!