sub access_A
{
    my ($self, $new_a) = @_;
    $self->{A} = $new_a if defined $new_a;
    return $self->{A};
}

##</code><code>##

my $obj = new First('A' => 'red',
                    'B' => 'green');
print "Here, A's colour is ", $obj->access_A(), "\n";
$obj->access_A('yellow');
$obj->teller();

##</code><code>##

Here, A's colour is red
$VAR1 = bless( {
                 'A' => 'yellow',
                 'B' => 'green'
               }, 'First' );