#!/user/bin/perl

use strict;
use warnings;
use Tk;
use Tk::DialogBox;
use Tk::Pane;

my $mw = MainWindow->new();

my $dialog =
  $mw->DialogBox( -title => "Title", -buttons => [ "OK", "Cancel" ] );

my $text_str = "blah\n" x 40;

my $scrolled = $dialog->add( 'Scrolled', 'Pane', -scrollbars => 'osoe', )->pack;

my $dtext = $scrolled->Label( -text => $text_str )->pack;

my $reply = $dialog->Show;

print "$reply\n";

MainLoop;