Select Code to Download

open(INPUT, "data.txt") || die "Error opening 'keywd.txt'\n";
             ^^^^----------- wtf? -------------^^^^^

open(FH, '<', "keywd.txt") || die "Error opening 'data.txt'\n";

open(FH, '<', "keyword.txt") || die "Error opening 'keyword.txt': $!\n
+";
                   ^^-- sic!     error message in here -----------^^

chomp(my @data = <INPUT>);