use lib '/www/facmedden/perl/lib';
use CGI::Session;
use CGI::Simple;
use Data::Dumper;

$sid = param('sid') || undef;
$session = CGI::Session->new ('driver:MySQL',
                              $sid,
                              {Handle => &opendb});
$sid = $session->id;