#!/usr/bin/perl

# use Person qw/name age exclaim/;
use person;

my $foo = Person->new();

# $foo->Person::name("Stefan");
$foo->name("Stefan");

# $foo->Person::name(20);
$foo->age(20);

# $foo->Person::exclaim();
$foo->exclaim();


$bar = Person->new();
$ bar->name("Yoda");
$ bar->age(900);
$ bar->exclaim();

# See, it's still here
$foo->exclaim();