#!/bin/usr/perl
print "Vashe imya?\n"; #Imya vvesti
$name=<STDIN>; # vvod imeni
$~=NAME_FORMAT; #format vvod
write; #vivod privetstviya
$~=name_format_bottom; #vivod nigney stroki
write;
format Name_format=
Privet, @>>>>>>!
$name

.
format name_format_top=
=============================
Soobshenie Perl-progi
.
format NAME_FORMAT_TOP=
=======================
.