# $DB = tie ... DB_File .. BTREE

$DB->get($key, $value),
$DB->put($key, $value, R_NOOVERWRITE|R_SETCURSOR);

# is a dumber way of saying

$DB->seq($key, $value, R_CURSOR);

# now you know