sub set_phrase { my $self = shift; print STDOUT "Object ", $self, " is of class ", ref($self), "\n"; my $phrase = shift; $self->{phrase} = $phrase; }