use warnings;
use strict;
use Tk;

my $main = MainWindow->new (-title => "Enter options");
my $text = $main->Text ();
$text->pack();

MainLoop;

my $options = join " ", $text->Contents ();
print $options;