#!/usr/bin/perl -w
use strict;
use World;

# object oriented hello world

my $USA = World->new('English');
my $foo = new World;

$USA->greet;
$foo->greet;