#!/usr/bin/perl
use Person qw/name age exclaim/;
my $foo = Person->new();
$foo->Person::name("Stefan");
$foo->Person::name(20);
$foo->Person::exclaim();