examples/Moose/person01/script/person.pl
use strict;
use warnings;
use v5.10;

use Person;

my $teacher = Person->new;

$teacher->name('Foo');

say $teacher->name;

examples/Moose/person01/lib/Person.pm
package Person;
use Moose;

has 'name' => (is => 'rw');

1;

examples/Moose/person01/script/person2.pl
use strict;
use warnings;
use v5.10;

use Person;

my $teacher = Person->new( name => 'Foo' );

say $teacher->name;