Help for this page
package Test: ... my @c = caller(0); $c[3]; }
sub package_name { my @c = caller(0); "$c[3] (with self = $_[0])" }