Select Code to Download

#!/usr/bin/perl
use strict;
...
10 fondant
10 toffee
10 dragee

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%.+=%;.#_}\&"^"-+%*)
+.}%:##%}={~=~:.")&e&&s""`$''`"e