го: @<<<<<<<<<<<<<<<<<<<<<<<  | ^|||||||||||||||||||||||||||||||
      $от_кого,				$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
Адрес:@<<<<<<<<<<<<<<<<<<<<<<<<<<  | ^|||||||||||||||||||||||||||||||
      $адрес,				$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
                                   | ^|||||||||||||||||||||||||||||||
      					$текст
----------------------------------------------------------------------
Отпечатано в типографии ИТУ 38
.

write();	# Вывод данных.
exit 0;		# Конец программы


Результат:


	П Р И Г Л А С И Т Е Л Ь Н Ы Й      Б И Л Е Т
----------------------------------------------------------------------
Кому: Чапаеву Василию Ивановичу    |   Уважаемый Василий Иванович!
                                   |     Компания МММ имеет честь
От кого: Компания МММ              |  пригласить Вас и Ваших близких
                                   |    на презентацию наших новых
Адрес:Москва, ул. Петровка, д 38   |   хромовых сапог, сделанных на
                                   |    уровне мировых стандартов
                                   |       качества и дизайна.
                                   |
----------------------------------------------------------------------
Отпечатано в типографии ИТУ 38

Специальные переменные:

	$~	- построчный формат содержимого.

	$^	- формат заголовка листа.

	$%	- номер листа.

	$=	- строк в листе.

Если вы хотите использовать одни и те же форматы для разных файлов
то самый простой путь:

	use FileHandle;	# Указать в начале программы

	format_name файл имя_формата; # Формат содержимого листа.

	format_top_name файл имя_формата; # Формат заголовка листа.

	write(файл);	# вывод данных.


Здесь 'файл' имеется ввиду указатель файла полученный командой o