package PARAMIN;
use strict;
use Tk;

sub inputWindow{
my $result = $_[0];
my $mw = MainWindow->new(-title=>"Parameter Input");

my $in = $mw->Entry(-textvariable=>$result)->pack();
my $submit = $mw->Button(-text=>"Enter", -command=>sub{})->pack();
MainLoop;
}
1;

package RESULT;
sub TIESCALAR{

    my $class = shift;
    my $state;#= 0;
    #print "IN TIE\n";
    return bless \$state, $class;

}
sub FETCH{
    my $self = shift;
    return $$self; 
}

sub STORE{
    my $self = shift;
    $$self = shift;
    #print "IN STORE\n";
}
1;

##</code><code>##

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