Select Code to Download

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

print "Length: $words\n" ;
exit;