use strict;
use warnings;

package Fruit;

sub new {
    my $class = shift;
    my $self = { name => shift, color => shift };
    bless $self, $class;
};    

sub get_color {
    return $_[0]->{ 'color' };
}
sub set_color {
    $_[0]->{ 'color' } = pop;
}
sub get_name {
    return $_[0]->{ 'name' };
}

package main;
my $obj = Fruit->new( 'apple', 'red' );
my $obj2 = Fruit->new( 'banana', 'green' );
$obj2->set_color( 'yellow' );


use Data::Dumper;    
print Dumper( $obj, $obj2 );

for my $fruit ( $obj, $obj2 ) {
    printf "The %s is %s\n", $fruit->get_name, $fruit->get_color;
}