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