use CGI;
my $cgi = CGI->new();
my @cookies = $cgi->cookie();
print "cookie is set" if @cookies;