package TestClass;

sub new {
	my $that=shift;
	my $class=ref($that) || $that;
	my $self={ Verbose => 1, RaiseErrors => 0};
	bless $self, $class;	
	return $self;
}

sub anything {
  my $self=shift;
  
  #
  # Here we nave a get object $conf from a test.cgi script. 
  #

  return;
}

1;