Help for this page
% echo 'sub afterinit { $DB::single = 1 }' >> .perldb
% cat .perldb sub afterinit { $DB::single = 1 } ... $ = eval {...} called from ... DB<1>