print "Reading ~/.perldb options.\n";
 
parse_options("NonStop=0 LineInfo=db.out AutoTrace=1 frame=4 inhibit_exit=1 DumpPackages=1");
parse_options("windowSize=25  ");
sub afterinit { push @DB::typeahead, "b 22", "b 23";}