$Code = USEFULL if defined $Code;

$Code++ if length($code) < 200;

$Errors   = USEFULL if defined $Errors;

$Output   = USELESS if ! $Code and ! $Errors;

$Question = SUB_OPTIMAL  if $Output and ! $Code and ! $Errors;

if ( $Question == SUB_OPTIMAL ) {
    warn "Hello?\n";
    seek $clarification, SUB_OPTIMAL, QUESTION;
    require MORE_INFORMATION;
}
[download]