Select Code to Download

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

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

package Age_and_Colour;
use Age;
...
    my ($class, $age, $colour) = @_:
    ... Now what? ...
}