Select Code to Download

 
  my $buffer ;
        while (sysread TEXT, $buffer, $buffer_size) {
      ## This will use tr to count fast for you:
           $words += ($buffer =~ tr/ +\n+,://) ;
      }

$fname =  "haystack.test";
open(TEXT, "<$fname")|| die "could not open file: $fname\n";
...

print"\n";