# base class
package AbstractMyClass;

my $_Class_Count = 0;

sub new
{
	my $class = shift;
	my $this = bless( {}, $class );

	ref($this) && $_Class_Count++;
	return $this;	
}

package MyClass;
@MyClass::ISA = ('AbstractMyClass');

sub new
{	
	my $class = shift;
	my $this = $class::SUPER->new( @_ );
	# this class' init...
	
	return $this;
}

##</code><code>##

use AbstractMyClass;
use MyClass;

my $amc = new AbstractMyClass ();
my $mc = new MyClass ();