use strict;
use ConfigFile;
use TestClass;

my $conf = new ConfigFile;
my $object = new TestClass;

$object->test();

##</code><code>##

package ConfigFile;

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

sub get_conf {
   my $self=shift;
   my $param=shift;
   
   my $result; # get result 
   
   return $result;
}

1;

##</code><code>##

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;