#! /bin/usr/perl
print "Your nam?\n";
$name = <STDIN>;
$~ = NAME_FORMAT_TOP;
write;
$~ = NAME_FORMAT;
write;
$~ = NAME_FORMAT_BOTTOM;
write;
format NAME_FORMAT=
Hellor, @>>>>>>!
$name
.
format NAME_FORMAT_TOP=
================================
Peri - programm.
.
format NAME_FORMAT_BOTTOM=
================================
.