package OuterPkg;

use strict;
use warnings;
use Carp qw/cluck/;


sub foo {
   my $sub =(caller(0))[3];
   $"=",";
   return "Calling $sub(@_)";
}



use Import2Package 'DTD' => 'myDSL';


package myDSL {
   print
     TABLE {
        TR {
           TD {1}, TD{foo()},
        }
     }
}

#  TABLE(); # not visible in outer Package