sub header {
 my ($http_head, $name, $content);
 shift;
 if (!@_) {$http_head="Content-type: text/html\n"}
 if ($_[0]!~/^-/&&$_[0]=~#^\w+/\w+$#) {
  $http_head="Content-type: $_[0]\n";
  shift;
 }
 while (@_) {
  $name=shift;
  $name=substr $name, 1;
  $content=shift;
  $http_head.="$name: $content\n";
 }
 return "$http_head\n";
}

Название "хорошо провести время";

Процедура "попить пивка";
Начало
 Пойти на кухню;
 Открыть холодильник;
 Достать пивка;
 Попить пивка;
 Вернуться;
Конец;

Процедура "пойти покурить";
Начало
 Пойти на лестницу;
 Достать сигарет;
 Покурить;
 Вернуться;
Конец;

Процедура "купить" ("продукт питания");
Начало
 Найти денег;
 Пойти в магазин;
 Купить "продукт питания";
 Вернуться;
Конец;

Начало
 Если нет(пивка) то купить(пивка);
 Попить пивка;
 Если нет(сигарет) то купить(сигарет);
 Пойти покурить;
Конец.