package This::Module;
use CONSTANT _Filename => __FILENAME__;
...
package Whatever;
print $This::Module::_Filename;