GUI Perl

use Tk;
$main = MainWindow->new();
$dialog = $main->DialogBox(
    -title => "Dialog box",
    -buttons => ["OK", "Cancel"]
);
$entry = $dialog->add(
    "Entry", -width => 40
)->pack;
$main->Button( 
    -text => "Show dialog box",
    -command => \&show
)->pack;
$text1 = $main->Text (
    -width => 40, 
    -height => 2
)->pack();
MainLoop;
sub show 
{
    $result = $dialog->Show;
    if ($result eq "OK") {
        $text1->delete('1.0','end');
        $text1->insert('end', $entry->get);
    }
}