#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;

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

print <<END_BLOCK;

Eat it 200 my friend!  Your cookie is now set!

END_BLOCK

1;