Select Code to Download

use CGI qw/:standard/;
$thisscript = 'foo';
...
print submit('Logout');
print end_form;
print p("line 115");

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