#!/usr/bin/perl -w
use strict;
use JPI::Common;
use JPI::Test;

my $q = JPI::Common->new_cgi();
$q->param('test','initial value');

print $q->header(),
      'Before: ',
      $q->param('test'),
      "\n";

JPI::Test->change_value();
print 'After: ',
      $q->param('test'),
      "\n";