#!/usr/perl/bin use Quantum::Superposition; my $shop =cheese_shop->new; my $customer = cheese_shop->new; if ( $customer->esuriant(bazouki) && $customer->terpsichorean(love) ){ if ( $shop->stock('red Leicester') ) { push $customer{shopping_cart}, 'red Leicester'); } else { if ( $shop->stock('Caerphilly') ) { push $customer{shopping_cart}, 'Caephilly'; } else { # about this point I got bored with the idea if ( $shop->stock(any('Bel Paese','Red Windsor','Stilton','Ementhal','Gruyere','Norweigan Jarlsburg','Lipta','Lancashire','White Stilton','Danish Brew','Double Goucester','Cheshire','Dorset Bluveny','Brie, Roquefort','Pol le Veq','Port Salut','Savoy Aire','Saint Paulin','Carrier de lest','Bres Bleu','Bruson','Camenbert','Gouda','Edam','Case Ness','Smoked Austrian','Wensleydale','Gorgonzola','I can't believe how many cheeses Monty Python know about','Parmesan','Mozarella','Paper Cramer','Danish Bimbo','Toe Cheese','Czech sheep's milk','Venezuelan Beaver Cheese','Cheddar','Illchester, the most popular cheese round here','Limburger'))) { print "Congratulations, you have discovered the hidden flaw in this program!" && die "Horribly"; } else { kill('owner'); }}}}