it button"
=item return_format=>(keyonly|text|json): the type of output at submission time (default is keyonly, but a text key=value perl line, but json should also be possible)
=item form_name=>str
key();
}elsif($retformat eq 'text'){
$ret="key=".$self->key()."\n";
}elsif($retformat eq 'json'){
$ret='not yet...';
}else{
$query->header(-type=>'text/plain');
die "unknown retu