$that_is_the_question = <<GROOK;

THAT IS THE QUESTION
by Piet Hein (in Grooks, 1966) 
translated into Perl by osfameron (hakim\@earthling.net) v. 1.0

 Hamlet Anno Domini

GROOK

to_be (1)
or
to_be (0)

&& print $that_is_the_question;

########
sub to_be {
	$exist = shift;
	$that_is_the_question.=
	($exist  ? "Co-" : "or no ").
	"existence \n";
	do {not $exist}
}