#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Session qw/-ip-match/;

# instantiate a new CGI object
my $cgi = new CGI;
my $sessionid = $cgi->param("sessionid");

    my $proceedFlag = 0;

	my $session = CGI::Session->load($sessionid);
	
    open(LOGFILE, ">>log.txt");
    print LOGFILE "gonna save cgi person as : ". $cgi->param("person")."\n";
    close LOGFILE;	
		
	$session->save_param($cgi);
	
	if($proceedFlag){
		print $cgi->redirect( -URL     => 'test2.pl?sessionid='.$sessionid);
		
	}else{
		# return to previous page with its session
		print $cgi->redirect( -URL     => 'test1.pl?sessionid='.$sessionid."&failed=1");	
	}