sub bind_vars
{
  my $self = shift;
  my $instance = tie(%ENV,'BBB');
  $self->BBB($instance);
  $self->nodes($instance->nodes);
  return 1;
}