Help for this page
sub authenticate { ... } return []; }
my $cookie = authenticate(); print $query->header(-cookie => $cookie);