package JPI::Test;
use strict;
use warnings;
use JPI::Common;

my $q = JPI::Common->new_cgi();

sub change_value {
  $q->param('test','value changed');
}
1;