Select Code to Download

$session{x} = 1;

$y = $session{x}; # $session{x} is an object
$y->set_z(3); # this changes the state of object $y

$y = $session{x};
foo($y);
sub foo {
    $y->set_z(3); # this changes state of object $y
}