Manipuler les attributs d’une classe à l’aide des méthodes ‘set’ et ‘get’

Author:
#!/usr/local/bin/perl -w

package personne;
use strict;

sub Personne {
    my $self = { };
    bles