Not really a poem but I could not think of where else to post this. It is Schrodinger's Cat Paradox in perl inspired by the discovery of this article on perl.com. If you have no Idea what I am talking about look at this
#Schrodinger's Cat Paradox in Perl
use Quantum::Entanglement;
$status = entangle( 1=>'dead', 1=>'alive');
print "Schrodinger's Cat is $status";