title: How can I print the calling program/module inside a method in Perl?
body: <p>I have written a Perl API and it is used by many programs across teams. I want to track all programs calling my API method. I want to have something like the below</p>
  
  <pre><code> debug("The calling method is ",  $XXXX); 
  </code></pre>
  
  <p>How to get $XXXX ?</p>