perl  -e "print qq(in the program $0\n);BEGIN{print qq(BEGIN in the program\n)}use TestBegin;"
BEGIN in the program
inside BEGIN in the module TestBegin.pm
in the module TestBegin.pm
in the program -e