my $cookie = cookie(-NAME => 'name', -VALUE => 'some text', -EXPIRES => 'now');
print header(-COOKIE => $cookie, -TYPE => 'text/html');