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