use Tk; my $main = MainWindow->new; my $entry1 = $main->Entry->pack; $entry1->insert( 0, 'Here is some long text that you have to scroll to see.' ); MainLoop;