#!/usr/bin/perl -w

use strict;

#use DBI;

use CGI::Carp qw(fatalsToBrowser);

use CGI qw(:stanadard);

#use CGI::Session qw(-ip-match);

#use CGI::Session::Driver::mysql;

my $cgi = CGI->new();

my $ip = $cgi->remote_host();

my $sid = $cgi->cookie("CGISESSID") || undef;

use Apache::Session::MySql;

use Apache::Session;

my $session;

my %hash; 

tie %hash, 'Apache::Session::MySql',$sid,{

    DataSource => 'dbi:mysql:phones',

    UserName   => 'name',

    Password   => 'password',

    TableName  => 'sessions',

};