use Quantum::Superpositions;
$question = any('to be', !'to be');

[download]
Sorry, couldn't resist :).

Back to Perl Poetry