Well... according to CGI::Session, you can just do this:

### $session already initialised as in your code
# Set the username to Bart
$session->param('username', 'Bart');

...

#retrieve and print the username
print $session->('username'); #prints Bart
[download]

Would that work for you?