#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;
print header( 
        -type   => 'text/plain', 
        -cookie => cookie( -name=>'ident', -value=>'cookie#1')
      ); 

print "Cookie SET";

##</code><code>##

#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;
print "Trying to set a cookie\n";
print header( 
        -type   => 'text/plain', 
        -cookie => cookie( -name=>'ident', -value=>'cookie#1')
      ); 

print "Cookie SET";