#!/usr/bin/perl
 
use Socket;
 
$identite_client   = getpeername(SOCKET)
 
    or die "Impossible d'id