DB<2> c
Here is ~/.perldb:


main::(./foo.pl:10):    my $foo = 1; # set breakpoint here and issue p @xx