use strict;
use warnings;
use Tk;
my $mw = tkinit;
my $d = $mw->DialogBox();
$d->add('Text')->pack;
$d->bind('<Return>','');
$d->Show;