sub new {
    my $class = @_;
    my $self = ( user    => $_[1],
                 session => 4556,
               );
    bless($self, $class);
    return $self;
  }