use CGI qw(:standard);

my $value = param('cookie');

print "Content-type: text/plain\n";
print "Set-Cookie: cookie=$value\n";
print "\n\n";
print "The cookie was set.\n";