Select Code to Download

sub connect {
     my $self = shift;
...
sub disconnect {
     untie %data;
}

sub data {
     my $self = shift;
...
          $data{$bar} = $self->{FOO};
     }
}