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";
}