#The base object, Base.pm
package Base;

sub new {
	my $class = shift;
	my $self = {};
	$class = ref($class) || $class;
	bless $self, $class;

	return $self;
}

1;


# The child object - qwe.html
package qwe;
use Base;
@ISA = ("Base");
1;

# A test program
#!/usr/bin/perl -w
use qwe;

my $x = new qwe();