Select Code to Download

open my $fh, "text_file_with_words.txt" or die;
while (my $line = <$fh>) {   
   ...
}

open(my $fh, '<', $qfn)
    or die("Can't open input file \"$qfn\": $!\n");