.
format NAME_FORMAT_TOP=
================================
Peri - programm.
.
format NАМЕ_FОRМАТ_TОP=
================================
.

эту хню убери нафига оно тебе --- и впредь когда такие выдает сообщения смотри на 47 строку на нее жалуется перловка

делай проста $mae_ima=<STDIN>;

print "MAe IMA $mae_ima";

и не забывай в конце каждой строки ставить точку с запятой