Select Code to Download

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

use strict;
use CGI;
...

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