#!/usr/bin/perl
use CGI::Application;

my $a = new CGI::Application;
my $c1 = $a->query->cookie(-name=>'userID',
				-value=>'test123',
			);
my $c2 = $a->query->cookie(-name=>'sessionID',
                      -value=>'blahblahblah',
                     );

$a->header_props(-cookie => [$c1,$c2]);

$a->run;