use CGI;

$q1 = new CGI;

$cookie1 = $q1->cookie(
       -name=>'FIRST_NAME', -value=>'Joe',
       -expires=>'Fri, 30-Aug-2002 15:30:30 GMT;',
       -path=>'/',
       -domain=>'127.0.0.1');

print $q1->header(-cookie=>$cookie1);

print "Cookie Created ...";