[Hubbitus]

Вот работающий код, надеюсь все понятно Если нет, спрашивай.

#!/usr/bin/perl
use CGI qw(:all);

if (defined cookie('name')) {
print header;
$str=cookie('name');
}
else {
$test_cookie=cookie(-name => 'name',
-value => 'My Name',
-expires => '+2m' );
print header(-cookie => $test_cookie);
$str="Guest";
}
print $str;