##### a.pm #####
package a;
use b;

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

1;