Select Code to Download

package MySession;

...
  my $self = shift;
  $self->close();
}

use MySession;

...

$session->{foo} = "bar";
$sesobj->close();