save(/home/jj/ftt2003-tp2)
mail(jj@di.uminho.pt)
cginame(/home/jj/public_html/bin/ftt2003-tp2)
formtitle(Submissão do 2.o trabalho prático de ftt)
uploaddir(/home/jj/ftt2003-tp2dir)
feedback(d)

{
 *grupo : 3 * {nome;numero:int; email };
 *tmx   : file
}

##
sub d{ my $p = shift;
 my $r =  ($p->{tmx} !~ m/\.tmx$/i )? "*" : "";

 $r .= "Incrição de $p->{'grupo-1'}{nome} recebida com sucesso\n"
     . pre(Dumper($p))
     . hr;
 $r
}

##