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