Continuity chat tutorial

use Continuity;
Continuity->new->loop;
sub main {my $r=shift; LOOP: {
  $r->print(
    qq{<form> Name: <input type=text name=name value="$name"><br>
           Message: <input type=text name=msg size=40>
                    <input type=submit value="Send"> </form>},
    join '<br>', reverse @mess);
  $r->next; $name = $r->param(q(name));
    push @mess, qq($name: ).$r->param(q(msg)) if $name; redo LOOP }}


# derived from http://continuity.tlt42.org/Chat_Tutorial