$name = $session->param($username);
printf "<input type=\"text\" name=\$username\" value=\"%s\" />", $name;



##</code><code>##

 $name = $query->param($username);
        $session->param($username, $name);


##</code><code>##

printf "<input type=\"text\" name=\$username\" value=\"%s\" />", $name;