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

use DB::Pluggable;
DB::Pluggable->run_with_config(\<<EOINI);
[DataPrinter]
EOINI

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

##</code><code>##

  DB<3> c
Debugged program terminated.  Use q to quit or R to restart,