The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
my $i = 0;
my $compiled_at = scalar localtime time;

sub {
  my ($this, $con) = @_;

  $con->delete_session;

  if (my $url = $con->param('nx') || $con->referer) {
    $con->redirect($url);
  } else {
    print $con "OK(".$i++."; $compiled_at)\n";
  }
};

# XXX: delegation of: url_param request_method
# XXX: accessor: file subpath