#filename World.pm (easiest to put in same directory with calling script)
package World;

my %greetings = ( 'english' => 'Hello, World!',
		  'german' => 'Guten Tag, Welt!',
		  'latin' => 'Salve, Munde!',
		  );

sub new
{
    my $class = shift;
    #default language is Latin
    my $language = lc( shift ) || 'latin';
    my $self = {};
    #check to make sure the language is valid
    $self->{'language'} = (grep( /$language/, (keys %greetings)))[0] || 'latin';
    
    bless $self, $class;
    return $self;
}

sub greet
{
    my $self = shift;
    my $language = $self->{'language'};
    print $greetings{$language}."\n";
}

1;