Perl Inheritance — кто вызывает родительский класс

У меня возникла ситуация, когда мне нужно найти вызывающую программу, и мой код выглядит примерно так:

Inherited.pm:

package Inherited;
our @ISA = qw(BaseClass);
sub new {
   SUPER::new();
}

BaseClass.pm

package BaseClass;
sub new {
  $a = caller(0);
  print $a
}

Теперь у меня есть другой класс ( MyClass.pm), который делает:
MyClass.pm:

$obj = Inherited->new();  

Это печатает Inherited. Но мне нужно, чтобы MyClassбыл печатным оператором.

Может ли кто-нибудь помочь мне, как решить эту проблему??