package Pack;

use strict;
use warnings;


sub bla {
   warn ((caller(0))[3]);
}



use Import2Package 'DTD' => 'Page';


package Page {
   Page->bla();
}

##</code><code>##

exec "perl import2package.pl" unless caller();

use strict;
use warnings;

package Import2Package;


sub import {
   my ($self, $dtd, $pack) =@_;
   my $super = (caller())[0];
   no strict 'refs';
   push @{"${pack}::ISA"}, $super;
}

1;

##</code><code>##

Pack::bla at import2package.pl line 7.