#!/usr/bin/perl -w

use CGI;
use CGI::Carp (fatalsToBrowser);
use CGI::Cookie

$co = new CGI;

$cook = $co->cookie(
    -name=>'ctbuser',
    -path=>'/',
    -expires=>'+1h',
    -value=>'pixxadonut'
);

print $co->header(-cookie=>$cook);
print 'ok you set my cookie pal';