package Pack;

use strict;
use warnings;


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



use Import2Package 'DTD' => 'Page';


package Page {
   Page->bla();
}