use Tk;
my $mw = MainWindow -> new();              
my $text = $mw -> Scrolled("Text", -height => 45,   
                                -wrap => 'word')   
         -> place (#whatever works);

then you need these to add, delete and get text to window.

$text -> insert('end', $whatever); 
$text -> delete("1.0",'end');   
my $fetch_the_text = $text -> get("1.0","end");