package Colour;
sub new {bless {colour => $_[1]}, $_[0]}
sub colour {$_[0]{colour}}

package Age;
sub new {bless {age => $_[1]}, $_[0]}}
sub age {$_[0]{age}}

##</code><code>##

use Colour;
use Age;
my $c_obj = Colour::->new("orange");
my $a_obj = Age::->new(42);
print "I have an object with colour ", $c_obj->colour;
print "And another object aged ", $a_obj->age;

##</code><code>##

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