sub logout_button {
  my $self = shift;
  my $q = $self->query();
  my $output = "";

  $output .= $q->start_form( -name => 'logout' );
  $output .= $q->hidden(-name => 'authen_logout', -value => '1');
  $output .= $q->submit(-value => 'logout');
  $output .= $q->end_form();

  return $output;
}

##</code><code>##

$output .= $self->logout_button();

##</code><code>##

<form method="post" action="/auth-test/dprnew2.cgi" enctype="multipart/form-data" name="logout">
<input type="hidden" name="authen_logout" value="1"  />
<input type="submit" name=".submit" value="logout" />
</form>

##</code><code>##

Forbidden
You don't have permission to access / on this server.

Apache/1.3.33 Ben-SSL/1.55 Server at 192.168.0.101 Port 443