in reply to finding module name?

print __PACKAGE__, "\n";

[download]

Update: perldata calls this a "special literal". See the documentation there for details.

In Section Seekers of Perl Wisdom