#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $q = CGI->new();
my %v = $q->Vars();
if (exists $v{do_renewpassword}) {
	print $q->header();
	print $v{do_renewpassword};
	exit;
}
local $/;
print $q->header();
print $q->start_html();
print <DATA>;
print $q->end_html();
exit;

<form style="margin: 0px" method="post" action="test.pl" enctype="application/x-www-form-urlencoded">
<ul class="disc"><li><b>Login Daten</b><table border="0">
<tr>
  <td class="width_150">User:</td>
  <td><input class="text" type="text" name="uname" value="<TMPL_VAR NAME=UNAME>" /></td>
</tr>
<tr><td colspan="2"><img class="any" src="/skin/images/dummy.gif" alt="" width="1" height="18" /></td></tr>
<tr>
  <td class="width_150">&nbsp;</td>
  <td align="center"><input class="button" type="submit" name="do_renewpassword" value="Beantragen" /></td>
</tr>
</table>
</ul></li>
</form>