sub new {
    my $class = shift;
    my ($id)  = shift;
    my $hr    = {};
    tie %{$hr}, 'Apache::Session::MySQL', $id {
       etc...
    };
    my $self = bless $hr,$class;
    return $self;
}