use strict;
use Tk;

my $main = MainWindow->new( -title => "Enter options:" );
my $text = $main->Text()->pack();
$main->Button(-text => "Done/Exit",
              -command => sub { print $text->Contents; exit(0) },
              )->pack();

MainLoop;