package Age_and_Colour;
use Age;
use Colour;
our @ISA = qw[Age Colour];
sub new {
    my ($class, $age, $colour) = @_:
    ... Now what? ...
}