sub do_login {
  my $self = shift ;
  my $q = $self->query ;
  my $c1 = $q->cookie(-name=>'userID',
                      -value=>'test123',
                      );

  my $c2 = $q->cookie(-name=>'sessionID',
                      -value=>'blahblahblah',
                     );

  $self->header_type('header');
  $self->header_props(-type=>'text/plain',
                      -cookie=> [$c1,$c2],
                     );
}

##</code><code>##

  $self->header_props(-type=>'text/plain',
                      -cookie=> [$c2,$c1],
                     );

##</code><code>##

  $self->header_props(-type=>'text/plain',
                      -cookie=> [$c2,$c1,$c2],
                     );