package Person;
require 5.004;
#use strict; 
my $Person;
$Person::version = "1.00.01";
$Person::build = "\$ID:2255518";
$Person::list = {};
sub new
{
	my $class = shift;
	return bless($Person::list,shift);
}
sub name 
{
	$Person::list->{NAME} = $_[0];
	return $Person::list->{NAME};
}
sub age
{
	$Person::list->{AGE} = shift if @_;
	return $Person::list->{AGE}; 
}
sub exclaim
{
	printf "I'm %s and i'm %d years old!\n",$Person::list->{NAME},$Person::list{AGE};
	return 1;
}
1;

##</code><code>##

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