sub ORG ($) {
}

print;
ORG <<'';
* TODO whatever ...
** 

print;