$ perl -MCGI -MCGI::Session -MDDS -le " Dump( CGI::Session->new->header ); "
$VAR1 = "Set-Cookie: CGISESSID=7259a9a49c42fea87376be33478731b8; path=/\r\nDate: Mo".
        "n, 23 May 2011 17:40:06 GMT\r\nContent-Type: text/html; charset=ISO-8859-1".
        "\r\n\r\n";

$ perl -MCGI::Session -MDDS -le " Dump( CGI->redirect )"
$VAR1 = "Status: 302 Found\r\nLocation: http://localhost\r\n\r\n";


##</code><code>##

use CGI::Session;
sub CGI::Session::redirect {
    my $self = shift;
    return $self->query->redirect(-cookie => $self->cookie, @_ );
}
use DDS;
Dump( CGI::Session->new->redirect );
__END__
$VAR1 = "Status: 302 Found\r\nSet-Cookie: CGISESSID=a19147247f0207a6c314b5aadc7c232".
        "a; path=/\r\nDate: Mon, 23 May 2011 17:46:15 GMT\r\nLocation: http://localho".
        "st\r\n\r\n";