perl -MTk -e " $mw = tkinit; $mw->Text->pack; $mw->Button->pack( qw( -anchor se  ) ); MainLoop"