#!/usr/bin/perl

$bin=8;              # 1000
$nombre = $bin << 1; # décalage de 1 bit à gauche
prin