Select Code to Download

  my $session = My::Session->new();
  my $foo = Foo->new( session => $session );
  # and foo creates Bar passing session, which creates
  # Baz passing session

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