l04.pl

   1 #!/usr/bin/perl
   2
   3 $foo= 0;
   4
   5 #сначала увеличиваем значение, затем выводим на экран
   6 print ++$foo;
   7 print "\n";
   8 #выводим на экран, затем увеличиваем значение
   9 print $foo++;
  10 print "\n";
  11 #форма записи не имеет значения
  12 $foo++;
  13 print $foo;
  14 print "\n";