## -*- cperl -*-
sub afterinit {
    use Cwd;

    my $dbg = getcwd(). "/.perldb";
    print "$dbg...\n";
    if ( -e $dbg ) {
        no strict;
        do $dbg;
    }
}

##</code><code>##

## -*- cperl -*-
push @DB::typeahead,
  'f Some.pm',
  'b 75',
  'f bin/mymainscript',
  'b 180',
  'b 192',
  'L';