G:\>type x.pl
use CGI ();


#Create Cookie


$mc_cookie_domain_name = ".sample.com";
$mc_path_script = "/";
$mc_cookie_expiration_time = "+2h";
$mc_cookie_name = "Sample_Cookie";
#$mc_cookie_value = $mc_form_member_name;
$mc_cookie_value = "Logged In";

my $cgi = CGI->new();
my $cookie = $cgi->cookie(-name => $mc_cookie_name, -value => $mc_cookie_value,
-expires => $mc_cookie_expiration_time, -domain => $mc_cookie_domain_name);
print $cgi->redirect(-url => 'https://www.sample.com/cgi-bin/confirm_account_2.p
l', -cookie => $cookie);

#End of Create Cookie

G:\>perl x.pl
Status: 302 Found
Set-Cookie: Sample_Cookie=Logged%20In; domain=.sample.com; path=/; expires=Tue,
19-Jun-2012 16:45:45 GMT
Date: Tue, 19 Jun 2012 14:45:45 GMT
Location: https://www.sample.com/cgi-bin/confirm_account_2.pl


G:\>