Select Code to Download

package Interesting;

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