#Schrodinger's Cat Paradox in Perl

use Quantum::Entanglement;

$status = entangle( 1=>'dead',    1=>'alive');

print "Schrodinger's Cat is $status";