package Greeter;
use strict;
use warnings;

sub new {
    my $self = shift;
    bless { name => shift }, 'Greeter';
}    

sub formal {
    my $self = shift;
    return "Welcome, $self->{name}.";
}

sub casual {
    my $self = shift;
    return "Howdy, $self->{name}!";
}

1;