# ... 107 sub foo { 108 my $x; 109 $x = 43; 110 => die "invalid x!" unless $x == 42; 111 print "Yay!" 112 # ... #### 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!