# make a frame, say frame_text, then create a text
# widget:

my $text = $frame_text->Scrolled ('Text', -scrollbars=>'se', )
                             ->pack(-expand=>1, -fill=>'both');
#append lines with:
$text->insert ('end', $_);

#delete all lines
$text->delete("1.0", 'end');