use strict; 
use warnings; 
use 5.012;

package Person;
sub new
{
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub do_this {
    my($self, $greetee) = @_;
    say "hello $greetee";
}

sub do_that {
    my($self, $greetee) = @_;
    say "goodbye $greetee";
}

1;