use Tk; $main = MainWindow->new(); $main->Button( -text => "Click Me!", -command => \&display )->pack; $text1 = $main->Text ('-width'=> 40, '-height' => 2 )->pack; sub display { $text1->insert('end', "Hello!"); } MainLoop;