Select Code to Download

while( defined(my $filename = glob("*.txt"))){
open(WORDLIST,$filename) || die "can't open wordlist: $!";}
init_words();

open(WORDLIST, *.txt>);

line1
line2

line3
line4

file1.txt    line1
file2.txt    line4