$you_know_what_I_mean = <<GROOK;
IF YOU KNOW WHAT I MEAN
(by Piet Hein, from Grooks, 1966)
(translated into Perl by Osfameron - hakim\@earthling.net)

A poet should be of the
	old-fashioned meaningless brand;
obscure, esoteric, symbolic, -
	the critics demand it;
so if there's a poem of mine
	that you do understand
I'll gladly explain what it means
	till you don't understand it.
GROOK

$obfuscator =
$poet{"old-fashioned meaningless brand"} = {
	obscure => 1,
	esoteric=> 1,
	symbolic=> 1
};
push my @poems, {
	poem 		=> __FILE__,
	understood 	=> 0,
};

if (critics_accept($obfuscator)) {
	for $poem (@poems) {
		while (understand($poem)) { explain ($poem, 'gladly') }
		$you_actually_know_what_I_mean++ if understand($poem);
	}
	print $you_know_what_I_mean unless $you_actually_know_what_I_mean;
}

sub critics_accept { $poet = shift; 
(	$poet->{obscure} 
and	$poet->{esoteric}
and	$poet->{symbolic})
}

sub understand 	{ (shift)->{understood} }
sub explain 	{ (shift)->{understood}-- }