use strict ;
use DB_File ;
use vars qw( %h $k $v ) ;   # hash, key value

tie %h, "DB_File", "memberpoints", O_RDWR|O_CREAT, 0640, $DB_HASH
    or die "Cannot open file 'memberpoints': $!\n";


# update
$h{vegeta} += 6;

# print the contents of the db (debuggin)
while (($k, $v) = each %h) { 
  print "$k -> $v\n" 
}


untie %h ;