use Tk;
use Tk::DialogBox;

my $mw = new MainWindow();
my $content;
my $text = $mw->Text()->pack();
my $ok = $mw->Button(-text => "OK", -command => \&grab)->pack();
MainLoop;
print $content;

sub grab {
	$content = $text->Contents();
	$mw->destroy();
}