package Interesting;

sub new {
    my ( $class ) = @_;
    return bless {}, $class;
}
 
sub myNameIs{
    my ( $self, $name ) = @_;
    defined $name
        or die "Don't tell me that I don't have a name.";

    # Store the name into the object
    return $self->{name} = $name;
}
 
sub whoAmI{
    my ( $self ) = @_;

    # Retrieve the name from the object.
    return $self->{name};
}