sub Populate
{
  my($self, $args) = @_;
  print Dumper($args);
  $self->SUPER::Populate($args);
  $self->ConfigSpecs('DEFAULT' => [ 'SELF' ]); 
}