package a;

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

use b;

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

##</code><code>##

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