#!/usr/bin/perl

use Socket;

$identite_client   = getpeername(SOCKET)

    or die "Impossible d'id