Select Code to Download

use strict;
use warnings;
...
    printf "Color: %s\n", $obj->getColor();
    printf "Food: %s\n", $obj->getFood();
}

package Ex::Parent;
use strict;
...
}

1;

package Ex::Improved;
use strict;
...
}

1;