package Test:

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