There is no encapsulation.

examples/oop/person06/script/encapsulation.pl
use strict;
use warnings;
use v5.10;

use Person;
use Data::Dumper qw(Dumper);

my $student = Person->new( fname => 'Foo', lname => 'Bar' );
say $student->fname; # Foo
say $student->lname; # Bar

$student->lname('Bar-Yosef');
say $student->lname; # Bar-Yosef

$student->{fname} = 'Zorg';
say $student->fname; # Zorg   (changed!)

print Dumper \$student;

# $VAR1 = \bless( {
#                   'lname' => 'Bar-Yosef',
#                   'fname' => 'Zorg'
#                 }, 'Person' );