my $session = My::Session->new();
  my $foo = Foo->new();

  ...
 
  package Baz;

  sub new {
   ...
   $self->{session} = My::Session->new();
  }