Select Code to Download

open(MYFILE, "<words") or die "Opening words: $!";
print MYFILE @words;
close(MYFILE);

my $filename = 'words';
open(my $myfile, '+>', $filename)
...
rand($.) < 1 and $line = $_ while <$myfile>;
close $myfile
    or die "Cannot close file '$filename': $!";