Select Code to Download

my ($words_file) = @ARGV;
open( my $fh, "<", $words_file ) or die "can't open file: $!";
...
## later you use
chomp(my $guess = <STDIN>);
...