package ConfigFile;

my $self;

sub new {
    if ( ! defined $self ) {
       my $that=shift;
       my $class=ref($that) || $that;
       $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;