use Fcntl;   # For O_RDWR, O_CREAT, etc.
        use SDBM_File;

        tie(%h, 'SDBM_File', 'filename', O_RDWR|O_CREAT, 0666)
          or die "Couldn't tie SDBM file 'filename': $!; aborting";

        # Now read and change the hash
        $h{count} += 1;
        print $h{count};
        ...

        untie %h;