haha...

sub poem{return $me++;}
$is = (poem == poem) ? "is" : "is not";
print "A poem $is a poem (or is it?).\n";
[download]