my $current_page = shift || die "Need a current page";

my $session = CGI::Session->new
    or die CGI::Session->errstr;

my @pages = $session->param('authorized_pages');

push @pages, $current_page
    unless $pages[-1] eq $current_page; # Just a guess.

$session->param( authorized_pages => \@pages );
$session->flush();

my $uri = URI->new( CGI::url() );
$uri->query("page=1");
$uri->fragment("");

print $session->header(-location => $uri,
                       -status => 302 );