[-
$MailTo = 'richter at embperl dot org' ;
$fdat{email} = 'test_mailformto' ;
$fdat{msg} = 'Embperl tests' ;
@ffld = keys %fdat ;
-]
[- MailFormTo ($MailTo,'Embperl TEST Formdata','email') -]
$? = [+ $? +]
[$ if $? $]
Sorry, there was an error, your mail couldn't be send
[$else$]
Your mail was successfully delivered
[$endif$]