#!/usr/bin/perl -w
use strict; 

use CGI qw(:standard); 
use CGI::Cookie;
my $q = new CGI; 


my $cookie =   $q->cookie(-name  =>  "thename",
						  -value =>  "thevalue",
						  -Path  =>  "thepath");

my $cookie2 =  new CGI::Cookie(-name  =>  "thename2",
							   -value =>  "thevalue2",
							   -Path  =>  "thepath2");

print $q->header;						             
print  $cookie; 
print $q->br; 
print $cookie2;