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