package Person;
require 5.000;
use Exporter;
use strict;

sub new {
    my( $class, $name, $height ) = @_;
    my $this = {
		'name' => $name,
		'height' => $height
	       };
    bless $this, $class;
}

sub name {
    my $this = shift;
    if( @_ ){
	$this->{name} = shift;
    } else {
	$this->{name};
    }
}

sub height {
    my $this = shift;
    if( @_ ){
	$this->{height} = shift;
    } else {
	$this->{height};
    }
}

1;