open(DBASE, '+<', 'dbase.mine')             # open for update
    or die "Can't open 'dbase.mine' for update: $!";