my $url =qq(http://server1.xxx.yy.zz/cgi-bin/server1.pl?id=$id);
$page->redirect($url);

##</code><code>##

my $session_dbh = DBI->connect('dbi:Pg:dbname=xyzzy') or die $DBI::errstr;
my $id = $page->param('id');
my $session = CGI::Session->new("driver:PostgreSQL", $id, {Handle=>$session_dbh});
my $currid = $session->id();