Counting words in *.cgi files (110 altogether): access.cgi,addr_to_name.cgi,autoload.cgi,banner.cgi,bbc_top_story.cgi,bbc_top_story_url.cgi,benchmark.cgi,cgipassword.cgi,char_histogram.cgi,chat2.cgi,check_email_syntax.cgi,closure.cgi,config.cgi,count_comments.cgi,count_words.cgi,counter.cgi,date.cgi,dateManip.cgi,daysinmonth.cgi,decodeURL.cgi,discussion.cgi,env.cgi,epocgi.cgi,fake_referer.cgi,fchat.cgi,fileparse.cgi,find_dups.cgi,find_exe.cgi,find_todays_files.cgi,findfiles.cgi,fisher_yates_shuffle.cgi,format.cgi,ftp.cgi,get_post.cgi,getcdntousrate.cgi,getdtv.cgi,gethostbyname.cgi,getitle.cgi,getopt.cgi,getxml.cgi,grep.cgi,guestbook.cgi,hashes.cgi,html_to_ascii.cgi,inc.cgi,l.cgi,lastrev.cgi,links.cgi,list_new_urls.cgi,lists.cgi,listscript_htm.cgi,listscript_txt.cgi,listscript_XMP.cgi,listurls.cgi,mail_ip.cgi,mason_handler.cgi,md5password.cgi,message.cgi,minmax.cgi,modate.cgi,mysql.cgi,named_params.cgi,nntp.cgi,nntp_print.cgi,order.cgi,pack_unpack.cgi,padding.cgi,parse_phone_number.cgi,pdfview.cgi,perl_js_winopen.cgi,perl_misc.cgi,perljobs.cgi,piechart.cgi,podcomment.cgi,posix_time.cgi,printenv.cgi,push.cgi,read_log.cgi,read_pop_mail.cgi,readinbox.cgi,recursion.cgi,referent.cgi,refs.cgi,remove_html_tags.cgi,responder.cgi,reverse.cgi,rssparser.cgi,run_remote_exe.cgi,s_ilia.cgi,script_call.cgi,select_country.cgi,select_state.cgi,set_get_cookie.cgi,simple_class.cgi,sizes.cgi,splitstring.cgi,struct.cgi,swsort.cgi,t.cgi,text_wrap.cgi,thcreate.cgi,thread.cgi,thupdate.cgi,ticker.cgi,tiehash.cgi,tiescalar.cgi,unique_words.cgi,upload.cgi,weather.cgi,write_topic.cgi, Frequency margin = 5

=> => 845
print => 741
= => 676
# => 432
} => 413
{ => 394
my => 258
if => 192
| => 178
to => 169
use => 166
for => 111
the => 111
in => 103
sub => 99
#!/usr/bin/perl => 98
#%% => 95
is => 85
file => 80
from => 79
open => 79
and => 77
of => 75
start_form, => 74
"content-type: => 73
|| => 69
or => 67
", => 64
this => 64
a => 60
"", => 60
die => 59
- => 57
list => 56
unless => 55
cgi => 54
: => 54
else => 52
with => 51
foreach => 50
get => 46
=~ => 42
$!"); => 41
\n\n"; => 41
eq => 41
www => 41
you => 40
on => 40
error("cannot => 39
" => 39
name => 39
mail => 37
*", => 36
gen => 35

"; => 35
by => 32
keys => 31
\n"; => 30
it => 30
using => 30
new => 29
-- => 29
exit; => 28
join => 28
text/html\n\n"; => 27
string => 27
close => 27
text/html => 27
hash => 26
your => 26
; => 26
( => 26
) => 26
"; => 26
); => 25
into => 25
close(file); => 25
strict; => 25
"

"; => 25
':standard'; => 24
(file, => 24
field => 23
", => 23
error => 22
are => 22
while => 22
return => 21
'new => 21
will => 21
simple => 20
x => 20
push => 20
.= => 20
', => 19
be => 19
end_form; => 19
elements => 19
not => 19
($lock){ => 18
{print => 18
$|=1; => 18
page => 18
$lock); => 18
set => 17
17
17
$url => 17
sort => 17
$sth => 17
flock(list, => 17
we => 16
just => 16
at => 16
message => 16
shift; => 16
create => 16
$chatfile: => 16
address => 15
split => 15
last => 15
like => 15
'", => 15
that => 15
all => 15
"
"; => 15
(fr.)' => 15
2 => 14
$!"; => 14
& => 14
script => 14
files => 14
access => 14
$userfile: => 14
count => 14
flock => 14
find => 14
mailing => 14
@lines => 14
1; => 14
can => 13
1 => 13
next => 13
function => 13
required.
') => 13
$msg => 13
number => 13
&& => 13
$qry => 13
has => 13
0; => 13
"can't => 13
html => 13
format => 13
was => 13
one => 13
; => 13
close(list); => 13
text/plain => 12
$pad_len => 12
"
\n"; => 12
right => 12
as => 12
remove => 12
user => 12
(@lines) => 12
#_____________________________ => 12
' => 12
. => 12
header; => 12
$i => 12
end_html; => 12
<=> => 12
values => 12
#!/home/perlnow/local/bin/perl => 11
left => 11
, => 11
" 11
old => 11
elsif => 11
"\n"; => 11
color: => 11
$date => 11
given => 11
" 11
#_____________________________________________________________________________________ => 11
$lock_ex) => 11
0 => 11
$entry => 11
"
11
been => 11
url => 11
header, => 10
e-mail => 10
cgi::carp => 10
3 => 10
value => 10
name=action => 10
@l => 10
type=submit => 10
4 => 10
contact => 10
text => 10
have => 10
$admin_email\n"; => 10
"
", => 10
password => 10
please => 10
bgcolor=white>", => 10
$message => 10
first => 10
show => 9
scalar => 9
end_form, => 9
end => 9
$s => 9
to_the_end => 9
< 9
ascii => 9
$title => 9
@_; => 9
islands' => 9
$member(@addresses) => 9
check => 9
text-decoration: => 9
'united => 9
pack => 9
qw(:standard); => 9
map => 9
'south => 9
(sort => 9
9
title => 9
text=black => 9
connect => 9
them => 9
@addresses=; => 9
perl => 9
$_ => 9
rename => 8
sorted => 8
server => 8
"from: => 8
@entries => 8
where => 8
"to: => 8
0, => 8
$0; => 8
(mail); => 8
padded => 8
unique => 8
$dbh->errstr; => 8
delete => 8
" 8
$sth->errstr; => 8
(mail, => 8
-maxlength=>255, => 8
8
words => 8
email => 8
$page => 8
== => 8
cookie => 8
$id => 8
#print => 8
$pad_char => 8
entries => 8
" 8
"1") => 8
"'\n"; => 8
$argv[0] => 8
date => 8
"subject: => 8
#____________________________________________ => 8
-t") => 8
($name, => 8
-maxlength=>255),""; => 8
same => 8
link => 8
"'
"; => 8
$value => 8
"marketing => 8
"
=> 8
forum => 8
see => 8
lines => 8
8
parameter => 7
data => 7
back => 7
default => 7
$dbh => 7

=> 7
$pass => 7
"string => 7
"|$mailprog => 7
$req => 7
$name, => 7
prevent => 7
time => 7
qw/fatalstobrowser/; => 7
phone => 7
search => 7
7
chars => 7
type => 7
#________________________________________________________ => 7
$poster => 7
$time => 7
does => 7
"@_"; => 7
$mailprog!\n"; => 7
-> => 7
simultaneous => 7
padding => 7
list: => 7
($in{'address'} => 7
$error => 7
color=red>$in{'address'} => 7
$str => 7
dbi; => 7
convert => 7
extract => 7
printf => 7
open(list,"$file"); => 7
"$_ => 7
(@l) => 7
which => 7
try => 7
$file => 7
#____________________________ => 7
years => 7
grep => 6
id => 6
" 6
=> 6
"$!"; => 6
"company => 6
$a => 6
%d => 6
&message; => 6
want => 6
valid => 6
matching => 6
$row => 6
-size=>1, => 6
; => 6
data::dumper; => 6
mn => 6
"$0: => 6
6
dbi->connect("dbi:mysql:perlnow", => 6
an => 6
records => 6
psw, => 6
send => 6
$outname => 6
$padded => 6
submit('submit'), => 6
any => 6
tr => 6
""; => 6
update => 6
island', => 6
"
=> 6

6
database: => 6
another => 6
split/\|/; => 6
type=text => 6
string: => 6
"number => 6
timelocal(localtime); => 6
how => 6
their => 6
but => 6
parameters => 6
username => 6
carolina', => 6
current => 6
"perlnow", => 6
days => 6
(us)' => 6
'north => 6
dakota', => 6
}; => 6
var => 6
cgi; => 6
lwp::simple => 6
$name => 6
code => 6
call => 6
post => 6
lwp::simple; => 6
"description => 6
$p => 6
"unable => 6
'; => 6
ostapenko, => 6
'korea => 6
size=-1>
  => 6
db => 6
$| => 6
$x++; => 6
name: => 6
module => 6
guinea' => 6
$padded, => 6
$q => 6
white; => 6
size=-1>", => 6
columbia', => 6
here => 6
(@entries) => 6
put => 6
":", => 6
confirm => 6
type=\"hidden\" => 6
messages => 6
popup_menu => 6
change => 6
"\n
"; => 6
$userfile => 6
none; => 6
out => 6
(<>) => 6

", => 6
tags => 6