#!/usr/bin/perl -w

# Le bloc nu exécute une seule fois son contenu
# et limite la portabilités de s