#!/usr/bin/perl
# Argument: AdresseMac
# Auteur Secret Olivier

use strict;
use warnings;

#require '/usr/lib/pulse2/imaging-server/libKwartz.pl';
#require '/usr/lib/kwartz/control/sharelib.pl';
#require 'hostlib.pl';

if ($#ARGV != 1)
{
    die "Usage : $0 AdresseMac\n";
}

### Variable
my $mac = "$ARGV[0]";

### Main

# Verification des arguments
if (length($mac) != 17)
{
    die "Erreur argument $mac non valide";
}

# a ecrire

