Anyhoo ... here is some code ... but if you still haven't bothered to read Ovids' Web Programming with Perl then you should - it's free you know.

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Cookie;

my %cookie = CGI::Cookie->fetch;

if (exists $cookie{test}) {
   print header,
      start_html('got cookie'),
      p('found the cookie: ' . $cookie{test}->value),
      end_html,
   ;
}
else {
   my $cookie = CGI::Cookie->new(-name=>'test',-value=>12345);
   print header(-cookie=>$cookie),
      start_html('need cookie'),
      p('setting cookie, please reload'),
      end_html,
   ;
}
[download]

Oh ... it's why, not 'whay'. And please, use code tags. You have been asked several times now and yet you still refuse to use code tags. You simply put a <code> tag on the line before your code and you put a </code> tag on the line after your code. Whay won't you listen? ;)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)