XPR - выражение возвращающее логическое значение true или false.
Модификаторы while и until вычисляются в начале предложения кроме блока do 
который выполняется первым.

if EXPR		- Модификатор "если". Предложение выполняется если EXPR возвращает 
true.

Пример:
	$var = 1;
	$var2 = 3 if $var > 0; # Результат: $var2 = 3

while EXPR	- Модификатор "пока". Предложение выполняется столько раз пока EXPR 
= true

Пример:
	$var = 1;
	print $var++ while $var < 5; # Печать $var с инкрементом

Результат: 1234


until EXPR	- Модификатор "до ". Предложение выполняется  до тех пор пока EXPR = 
false

Пример:
	$var = 1;
	print $var++ until $var > 5; # Печать $var с инкрементом

Результат: 12345

unless EXPR	- Модификатор "если не" . Обратный к if. Выражение выполняется есле 
EXPR = false.

Пример:
	$var = 1;
	print $var++ unless $var > 5; # Печать $var с инкрементом

Результат: 1


Сложные предложения.


Последовательность простых предложений ограниченная функциональными
ограничителями называется блоком. В Пел это может быть
целый файл, последовательность предложений в операторе eval{} или
чаще всего это множество простых предложений ограниченных круглыми
скобками '{}'.

Сужествуют следующие виды сложных предложений:

	if (EXPR) BLOCK
	if (EXPR) BLOCK else BLOCK
	if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK

	LABEL while (EXPR) BLOCK
	LABEL while (EXPR) BLOCK continue BLOCK
	LABEL for (EXPR; EXPR; EXPR) BLOCK
	LABEL foreach VAR (LIST) BLOCK
	LABEL BLOCK continue BLOCK

Обратите внимание, что сложные предложения описаны в термах блоков
а не предложений как в языках C или Pascal. Поэтому необходимо
всегда использовать круглые скобки для обозначения блока.

if (EXPR) BLOCK		- Вычисляется логическое выражение EXPR и если true  блок 
выполняется.

Пример:
	$var =1;
	if ($var == 1)
	   { print $var,"\n";
	   }
Результат: 1


if (EXPR) BLOCK else BLOCK2	-  Если EXPR=true выполняется BLOCK иначе BLOCK2.

Пример:
	$var =2;
	if ($var == 1)
	   { print "\$var = 1\n";
	   }
	else
	   { print "\$var не равно 1\n";
	   }

Результат: $var не равно 1

if (EXPR1) BLOCK1 elsif (EXPR2) BLOCK2 ... else BLOCK	-
	Если EXPR1=true выполняется BLOCK1 иначе если EXPR2=tr