Блоки кода

BEGIN { ... }

{ ... }

LINK: { ... }

END { ... }

* В самом начале желательно использовать use strict
* Блоки кода в Perl всегда заключаются в фигурные скобки { }
* Фигурные скобки ставятся всегда, даже если внутри только один оператор
* Комментарии обозначаются значком #
* Синтаксис очень свободен - части операторов можно менять местами

# Именованные блоки

BLOCK: {
  $i=1;
  last BLOCK; # выход к print
  next BLOCK; # выход к continue
}
continue {
  $i++;
}
print $i;


# Именованные блоки позволяют эмулировать оператор switch:

$v = 1;
SWITCH: {
   $case = 1, last SWITCH if $var==1;
   $case = 2, last SWITCH if $var==2;
   $case = 3, last SWITCH if $var==3;
   $case = 0; # nothing
}