continuity-formbuilder.pl

use CGI::FormBuilder;
use Continuity;
Continuity->new->loop;
sub main {my $r=shift; LOOP: {
$r->print(CGI::FormBuilder->new(method=>q(post), fields=>[qw(name message)])->render, join q(
), reverse @mess);
$r->next; $name = $r->param(q(name));
push @mess, qq($name: ).$r->param(q(message)) if $name; redo LOOP }}