I don't know a proper way either, just two dirty ones which may or may not work.

Is it possible to find out where BEGIN was called from by the function caller() ? If yes, there may be a value (filename from (caller())[1] and line number from (caller())[2] ) and you could parse the file around the line. But I don't know if this works with BEGIN-Blocks.

Here another dirty idea for longer running programs: there exists a perl variable called $^T (=$BASETIME) which contains the unix epoch time when the program was started. If the module was "used", this will be about the same as a timestamp in the Module's BEGIN-block, and may be earlier if the module is required later at runtime.

Sorry!

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"