# Perl 5

use Attribute::Property;

package SomeClass;
sub given_name : Property;

##</code><code>##

# Perl 6

class SomeClass {
    has $.given_name is public;
}

##</code><code>##

# Perl 5

my $object = SomeClass->new;

$object->given_name = 5;

print $object->given_name, "\n";

##</code><code>##

# Perl 6

my $object = SomeClass.new;

$object.given_name = 5;

print $object.given_name, "\n";