sub cookietest{
  my $cookname = "newcookie";
  my $cookietest = CGI->cookie($cookname);
  unless (defined $cookietest) {
    my $cookie1 = CGI->cookie(-NAME=>$cookname, 
                              -VALUE=>"abc", 
                              -EXPIRES=>"+2y", 
                              -PATH=>"/");
    print CGI->header(-COOKIE => $cookie1);
    }
}