sub new {
	my $class = shift;
	my $id = shift;
	my %h = ();
	tie %h, 'Apache::Session::MySQL', $id {
		# whatever goes here
	};
	return bless(\%h, $class);
}