#!/usr/bin/perl

use CGI qw/:all/;

my $q = CGI->new();
my $cookie = $q->cookie(-name=>'dernamedescookies',
                          -value=>'somedata'
                         );
my $read = $q->cookie('dernamedescookies');
print header(-type=>'text/html',
             -cookie=>$cookie
            );
print start_html,$read,end_html;