Help for this page
package PARAMIN; use strict; ... #print "IN STORE\n"; } 1;
use PARAMIN; tie $result, 'RESULT'; &PARAMIN::inputWindow(\$result); print $result;