my $current_page = shift;
my @pages;
my $session = new CGI::Session();

if ( $session->param('authorized_pages') ) {
   @pages = $session->param('authorized_pages');
   
} else {
   print $session->header();
}

push @pages, $current_page;
$session->param( 'authorized_pages' => \@pages );
print redirect("/?page=$current_page");

##</code><code>##

print $session->header(-location => "/?page=$current_page");