$SESSION->{Foo} = { Value => 94, name => 'Frank' }

##</code><code>##

$SESSION->{value} = 94;
$SESSION->{name} = 'Frank';

##</code><code>##

# Set a global "login" variable
$r->set_global( Login => 1 );

# Do some other stuff, then let the Bar function do things.
$r->private_variable( Package => "Foo", Function => "Bar", Value => "Some Value" );