# 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" );