You know this old chestnut?

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

try the OODoc equivalent :)