# Perl 5

my $object = SomeClass->new;

$object->given_name = 5;

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