Select Code to Download

package a;

...
sub import {
  print "import #2 in $_[0] called from ". (caller(1))[3] ." \n";
}

import #1 in a called from b::BEGIN
import in b called from a::BEGIN
import #2 in a called from main::BEGIN