sub connect {
     my $self = shift;
     tie %data, "AnyDBM_File", "data", O_RDWR, 0644
          or die "Cannot open data for read.\n";
     return 1;
}

sub disconnect {
     untie %data;
}

##</code><code>##

sub data {
     my $self = shift;
     my $bar = shift;

     if(@_) {
          $data{$bar} = $self->{FOO};
     }
}