http://qs1969.pair.com?node_id=6000

my ($question, $to_be, $asleep); # version 0.1 my $author = "Colin McMillen"; my $apologies_to = "William Shakespeare"; my $to_be = 1; while ($to_be || (!$to_be)) { $question = "that"; if (suffer($slings && $arrows_of_outrageous_fortune) or (take_arms_against($sea_of_troubles) && by_opposing() eq "end +them")) { do { $to_be = 0; $asleep = "no more"; die "We end the heart-ache, and the thousand". " natural shocks that flesh is heir to"; } while ("'tis a consumation devoutly to be wish'd."); } } sub suffer { return true; } sub take_arms_against { return true; } sub by_opposing { return "end them"; }

# Output:
# falkkin@shadow ~/bin perl myQuestion.pl
# We end the heart-ache, and the thousand natural shocks that flesh is heir to at myQuestion.pl line 15.