Простая форма проверки E-mail и связь с Perl

" ; Печать " < h3 > Одно или несколько полей имеют ошибки

! " , Если ( $ fnameErr EQ" правда " ) { печати " Первое поле Название не может быть пустым ! } Если ( $ emailErr EQ " правда " ) { печати " Поле электронной почты не может быть пустым ! }, Если ( $ MsgErr EQ" правда " ) { печати " Поле сообщение не может быть пустым ! } Распечатать "