sub new{
  my $self = shift;
  my $foo  = shift;
  $self->{'foo'} = $foo;
  return bless( {}, ( ref($self) || $self ) );
}