$code = 'package Enforce::NOT; sub you; sub cannot;';
eval "package Whatever; $code";