package TestClass;
use base qw(ConfClass);

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(); # Initialize the superclass ConfClass here.
    ... # Do whatever you want.
    return $self;
}