sub afterinit { 
 $DB::doccmd='perldoc';
 $DB::alias{doc}='s/doc/perldoc/'; 
}