Hallo Richard,
if($username eq '')
Sollte das nicht eher
if ($in{'username'} eq '')
sein? Ich hab zwar kaum Ahnung von Perl und keine Ahnung, wie die Request-Variablen vom Modul eingelesen werden, aber in Deiner Unterroutine greifst Du so darauf zu, also koennte das die Loesung sein...
Beste Gruesse
Jan