use strict; 
use CGI; 
use DBI; 
my ($COOKIE_ID, $COOKIE_NAME) = &Set_Cookie_Values();
my ($CGI, $DBH) ;

sub SetCookieValues
{
  my $id = "this is the cookie id" ;
  my $name = "this is the cookie name" ;
  return $id, $name ;
}