Select Code to Download

sub words_from_file {
    my $file_path = shift;
    my @word_list;
...
        or die "Could not close $file_path:  $!\n";
    return \@word_list;
}