$code = 'package Enforce::NOT; sub you; sub cannot;'; eval "package Whatever; $code"; [download]
In reply to Re^2: Execute commands in a string by PodMaster in thread Execute commands in a string by aplonis