#! perl -w
use strict;

package This::Module;
our $_Filename = __FILE__;

#        ...

package main;
print "$This::Module::_Filename\n";