#!C:\strawberry\perl\bin\perl.exe
use CGI::Session;
use CGI;
use CGI":standard";
use CGI::Carp qw(fatalsToBrowser);
 
$| = 1;
print header;
print start_html;
my $cgi = new CGI;      
my $Session 
  = new CGI::Session( undef, $cgi, {Directory=>'/tmp'} );
		
		
$var =0;
$limit=100;
$submit = param("Submit");
print <<HTML;	
<form>
  <input type="submit" name="Submit" value="add" ><br/></input>
</form>
HTML


if ($submit eq 'add'){
  print  "var is".$var;
  if ($var < $limit){
    $var++;
    print "add".$var;
    $Session->{'MyVar'} = $var;
    print "value is".$var;
    $var = $Session->{'MyVar'};
    print "retrieve".$var."\n";
    print "<br/>\n";
  }
  else{ }
}else{}

print end_html;