Check out Continuity!

  print "What is your name? ";
  my $name = <>;
  chomp $name;
  print "What is your quest? ";
  my $quest = <>;
  chomp $quest;
  print "Good luck, $name! May you $quest\n";
[download]

can be translated to:

  use Continuity;
  Continuity->new->loop;
  sub main {
    my $r = shift;
    $r->print("What is your name? <form><input name=name>");
    $r->next;
    my $name = $r->param('name');
    $r->print("What is your quest? <form><input name=quest>");
    $r->next;
    my $quest = $r->param('quest');
    $r->print("Good luck, $name! May you $quest<br>");
  }
[download]

Plus... it can be used by multiple users at once! It does sessions via cookies by default.

--Brock (awwaiid)