package Foo::Bar;

sub new {
    my $class = shift;
    my %args  = @_;

    my $self = {};
    bless $self, $class;

    $self->{_name} = $args{name} if $args{name};

    return $self;
}

sub name {
   my $self = shift;

   return $self->{_name};
}

##</code><code>##

my $bar = Foo::Bar->new( name => 'Bob Lambert' );

print "Name of my object " . $bar->name    . "\n"; # method call
print "Name from my hash " . $bar->{_name} . "\n"; # hash key