#!/usr/bin/perl -- 

use strict;
use warnings;

use CGI::Session();

my $ses = CGI::Session->new or die CGI::Session->errstr;
warn 'header : ', $ses->header;
warn 'header : ', $ses->header(-location => "/?page=1");


__END__

header : Set-Cookie: CGISESSID=de7a711a41ba8262d2f1dcb6cbf3a2ad; path=/
Date: Sun, 17 May 2009 03:48:43 GMT
Content-Type: text/html; charset=ISO-8859-1

header : Set-Cookie: CGISESSID=de7a711a41ba8262d2f1dcb6cbf3a2ad; path=/
Date: Sun, 17 May 2009 03:48:43 GMT
Location: /?page=1
Content-Type: text/html; charset=ISO-8859-1