#!/usr/bin/perl -w

use strict;
use CGI;
my $q = CGI->new();

my $bar = do_my_cookie_stuff( $q->param('foo') );

print header( 
        -type   => 'text/plain', 
        -cookie => $q->cookie( -name=>'ident', -value=>$bar )
      ); 

print "Cookie SET";