Select Code to Download

    while (defined (my $line = <WORDS>)) {

use strict;
use warnings;
...

nothing here
aeiou again