$ perl -MTk -e " tkinit->MainLoop; die qq[hi] "
hi at -e line 1.