save(/home/jj/inscritos2):resumomail
mail(jj@di.uminho.pt):resumomail
cginame(/home/jj/public_html/bin/_1)
formtitle(Inscrição no 6º encontro)
feedback(f)

{
 *nome                    ;
 *email                   : inv-mail;
 *intituicao (Instituição): {nome;pais:[pt;en;br;fr]} ;
 morada                   : string 50 * 4 ;
 tel                      : 3 * string 10;
 area (Áreas de interesse): 5 * string;
 idade                    : int inv-idade;
 *modo (Modo de pagamento): [cheque ; noLocal ] 
}

##
sub mail { if( $_[0] =~ /\@/) {""} else { "Não parece ser um email"} }
sub idade {$_[0] < 120 ? "":"Cumprimentos ao Marquês de Pombal!"}
sub resumomail { "Incrição de $_[0]{nome} /$_[0]{email}\n"}
sub f{my $r=shift; pre(Dumper($r)) }

#mail(jj):resumomail
##