perl -MTk -e " tkinit->TextEdit->pack; MainLoop "

##</code><code>##

perl -MTk -e " tkinit->Scrolled( q/TextEdit/ )->pack; MainLoop "

##</code><code>##

perl -MTk -e " my $te = tkinit->Scrolled( q/TextUndo/ )->pack; $te->Load( q/filename/ ); MainLoop "