use strict;
use CGI;
use vars qw($q $c);

$q = new CGI;
$c = $q->cookie(-name=>"Username", -value=>"Fred Flintstone", -path=>"/", -expires=>"+1d");
print $q->header(-cookie=>"$c");

##</code><code>##

use strict;
use CGI;
use vars qw($q $c);

$q = new CGI;
$c = $q->cookie("Username");