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

package Personne;
use strict;

sub new {
    my $self = { };
    bless($se