# Perl 6

my $object = SomeClass.new;

$object.given_name = 5;

print $object.given_name, "\n";