use PARAMIN;
tie $result, 'RESULT';
&PARAMIN::inputWindow(\$result);
print $result;