#!/usr/local/bin/perl -w
 
package Personne;
use strict;
 
sub new {
    my $self = { };
    bless($se