=cut

sub new {
    ...
}
=item C<as_string>


##</code><code>##

sub authbox {
  my ($input, $callback) = @_;
=item C<authbox>
  authbox ($input, $callback);

  Returns two items.  The first is a string containing a hunk of xhtml
  suitable for inclusion wherever a div can legally be put (e.g.,
  inside a table cell or a paragraph).  If the user is not logged in,
  the box offers login options.  If the user is logged in, it offers a
  logout link.  $input should be a hashref containing any form input
  with keys starting with 'AUTH_'.  $callback should be a closure
  that, if passed a user id, returns a string containing a suitable
  greeting; this string will appear in the authbox.

  The second item in the returned list is the cookie string that
  should be passed to the browser, if any.
=cut
  # Rest of code for function goes here.
}


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/