To get past the flaw mentionned you can replace the appropriate line in the above code by the one below should make it work:

while (<WORDLIST>){push (@words => lc($_))}
[download]

<kbd>--
PerlMonger::Paris(http => 'paris.pm.org');</kbd>