sub new {

my($class, $session) = @_
my $self = { };
bless($self, $class);
$self->{'session'} = $session;

}