BLA 1,2,3;
within_myDSL { BLA 1,2,3 }

##</code><code>##

use subs qw( BLA );
package iDSL;
# package code
1;