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

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