package Test:

sub package_name {
  my @c = caller(0);
  $c[3];
}

##</code><code>##

sub package_name {
  my @c = caller(0);
  "$c[3] (with self = $_[0])"
}