Select Code to Download

package Test:

...
  my @c = caller(0);
  $c[3];
}

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