use CGI qw/:standard/;
$thisscript = 'foo';

print p("line 109");
print start_form({ -action  => "$thisscript",
        -method  => "post" });
print hidden('action','logout');
print submit('Logout');
print end_form;
print p("line 115");

##</code><code>##

<p>line 109</p><form method="post" action="foo" enctype="multipart/form-data">
<input type="hidden" name="action" value="logout"  /><input type="submit" name="Logout" value="Logout" /></form><p>line 115</p>