perl -I. -d:TobyLite -e "sub x { print qq{okay\n}; } x();"