http://www.perlmonks.org?node_id=85541

use Carp; unpack fish, spices; croak fish if $alive; study recipe, pop in, time; BEGIN {meal}; tied %bib; scalar fish; fork, split; sqrt lemon; glob tartarsauce; chop, open(MOUTH), chomp; unlink flesh; truncate bone, chomp; untie %bib; push plate; END {meal}; sleep now;

Update added line about cooking... (line 4)

Update2 DOH! thanks to premchai21 for pointing out tatarsauce...

                - Ant