Help for this page
my $medio=($izquierda+$derecha)<<2;
my $medio=($izquierda+$derecha) >> 1; # divide by 2