Select Code to Download

package JPI::Common;
use strict;
...
  }
}
1;

package JPI::Test;
use strict;
...
  $q->param('test','value changed');
}
1;

#!/usr/bin/perl -w
use strict;
...
print 'After: ',
      $q->param('test'),
      "\n";

Before: initial value
After: value changed