perl -MTk -le " tkinit->Text->pack->focus; MainLoop; "

perl -MTk -le ' tkinit->Text->pack->focus; MainLoop; '