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

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

1;