Select Code to Download

use Tk;
use strict;
...
my $box = $mw->Scrolled(qw/Text -width 100 -height 15 -scrollbars se/)
+->pack;
$mw->Button(text=>"click", command=>[\&something, $box])->pack;
MainLoop;