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

# création d'une classe 'personner
package Personne;

sub new {
    my $cl