Counting words in *.cgi files (114 altogether): access.cgi,addr_to_name.cgi,autoload.cgi,bailout.cgi,banner.cgi,bbc_top_story.cgi,bbc_top_story_url.cgi,benchmark.cgi,cc.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,go-shell.cgi,grep.cgi,guestbook.cgi,hashes.cgi,html_to_ascii.cgi,inc.cgi,insideout.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,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,telnet.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 => 823
= => 808
# => 729
} => 543
{ => 527
the => 338
to => 302
my => 260
| => 253
if => 243
is => 182
use => 169
in => 144
sub => 141
for => 134
file => 133
this => 126
a => 116
and => 112
of => 106
#!/usr/bin/perl => 101
=~ => 100
#------------------------------------------------------------------------------ => 100
#%% => 97
: => 90
from => 82
open => 81
"content-type: => 79
else => 77
it => 77
|| => 76
start_form, => 74
eq => 71
or => 70
you => 66
", => 64
on => 64
- => 63
user => 60
"", => 60
cgi => 58
die => 57
unless => 57
foreach => 56
list => 56
" => 55
get => 54
be => 54
with => 52
that => 48
name => 44
by => 41
$!"); => 41
www => 41
script => 40
\n\n"; => 40
error("cannot => 39
39
using => 38
not => 38
gen => 36
*", => 36
"; => 36
function => 35

"; => 35
your => 34
mail => 34
can => 32
we => 32
page => 32
.= => 32
new => 31
keys => 31
exit; => 30
text/html\n\n"; => 30
\n"; => 29
-- => 29
join => 28
password => 28
) => 28
', => 27
end => 27
27
string => 27
html => 27
close => 27
text/html => 27
will => 27
hash => 26
; => 26
( => 26
command => 26
change => 26
into => 25
close(file); => 25
error => 25
strict; => 25
"

"; => 25
set => 24
as => 24
':standard'; => 24
); => 24
form => 24
& => 24
field => 24
(file, => 24
are => 24
", => 23
while => 23
message => 22
&printpagefooter; => 22
return => 21
'new => 21
like => 21
when => 21
simple => 20
x => 20
prints => 20
$|=1; => 20
push => 20
link => 20
called => 20
? => 20
19
end_form; => 19
"\n"; => 19
upload => 19
elements => 19
=> 19 which => 19 < 18 2 => 18 ($lock){ => 18 send => 18 {print => 18 files => 18 download => 18 have => 18 login => 18 path => 18 $lock); => 18 1 => 17 directory => 17 last => 17 $url => 17 has => 17 all => 17 was => 17 output => 17 sort => 17 1; => 17 $sth => 17 flock(list, => 17 just => 16 $prompt => 16 at => 16 displays => 16 allows => 16 0; => 16 shift; => 16 create => 16 mailing => 16 $chatfile: => 16 commands => 16 values => 16 address => 15 split => 15 only => 15 next => 15 @_; => 15 && => 15 time => 15 '", => 15 need => 15 " "; => 15 $i => 15 / => 15 please => 15 (fr.)' => 15 data => 14 value => 14 remove => 14 $!"; => 14 $winnt => 14 access => 14 $userfile: => 14 type="hidden" => 14 count => 14 flock => 14 find => 14 @lines => 14 show => 13 left => 13 required. ') => 13 number => 13 $qry => 13 line => 13 "can't => 13 format => 13 one => 13 ; => 13 close(list); => 13 text/plain => 12 e-mail => 12 $pad_len => 12 " \n"; => 12 right => 12 server => 12 _ => 12 name="f" => 12 (@lines) => 12 other => 12 so => 12 #_____________________________ => 12 ' => 12 . => 12 header; => 12 end_html; => 12 <=> => 12 12 => 12
wants => 12
out => 12
$message => 12
first => 12
no => 11
#!/home/perlnow/local/bin/perl => 11
, => 11
ascii => 11
$msg => 11
browser => 11
type=submit => 11
" 11
old => 11
elsif => 11
color: => 11
$date => 11
file. => 11
given => 11
" 11
#_____________________________________________________________________________________ => 11
$value => 11
$lock_ex) => 11
them => 11
0 => 11
$entry => 11
" 11
$_ => 11
been => 11
url => 11
header, => 10
valid => 10
10
3 => 10
qualified => 10
again => 10
where => 10
name=action => 10
10
@l => 10
&printcommandlineinputform; => 10
4 => 10
cookie => 10
contact => 10
should => 10
text => 10
"[admin\@$servername => 10
=> 10
post => 10
$admin_email\n"; => 10
"
", => 10
bgcolor=white>", => 10
&printpageheader("c"); => 10
specified, => 10
ne => 10
used => 10
see => 10
=> 9
scalar => 9
\ => 9
end_form, => 9
default => 9
cgi::carp => 9
$s => 9
to_the_end => 9
< 9
$title => 9
type=text => 9
also => 9
delete => 9
islands' => 9
$member(@addresses) => 9
}; => 9
check => 9
text-decoration: => 9
does => 9
code => 9
$key => 9
$val => 9
'united => 9
pack => 9
qw(:standard); => 9
map => 9
list: => 9
run => 9
'south => 9
(sort => 9
($name, => 9
type="submit" => 9
title => 9
text=black => 9
"") => 9
connect => 9
@addresses=; => 9
perl => 9
\| => 8
rename => 8
sorted => 8
elsif($action => 8
action="$scriptlocation"> => 8
running => 8
@entries => 8
an => 8
variable => 8
you're => 8
any => 8
$targetfile => 8
8
0, => 8
8
another => 8
_____ => 8
$0; => 8
(mail); => 8
padded => 8
unique => 8
$dbh->errstr; => 8
starts => 8
downloaded => 8
" 8
$sth->errstr; => 8
current => 8
-maxlength=>255, => 8
8
words => 8
email => 8
$page => 8
== => 8
var => 8
$id => 8
#print => 8
|_ => 8
($transferfile => 8
$pad_char => 8
entries => 8
" 8
"1") => 8
"'\n"; => 8
$argv[0] => 8
__ => 8
date => 8
$body => 8
$currentdir]\$ => 8
"$currentdir> => 8
long => 8
&printpageheader("f"); => 8
#____________________________________________ => 8
$in{'f'} => 8
-maxlength=>255),""; => 8
same => 8
here => 8
put => 8
color="#ff0000"> => 8
fully => 8
"'
"; => 8
"marketing => 8
name="a" => 8
otherwise => 8
"
=> 8
messages => 8
specified => 8
forum => 8
($winnt => 8
method="post" => 8
lines => 8
local => 7
seconds => 7
character => 7
enter => 7
stored => 7
data::dumper; => 7
"from: => 7
parameter => 7
back => 7
sure => 7
$dbh => 7
split(/=/, => 7
most => 7

=> 7
$pass => 7
make => 7
"string => 7
"|$mailprog => 7
input => 7
"to: => 7
$req => 7
copyright => 7
may => 7
$name, => 7
prevent => 7
(mail, => 7
qw/fatalstobrowser/; => 7
phone => 7
search => 7
"; => 6
name="d" => 6
modify => 6
$val; => 6
update => 6
$command => 6
some => 6
"find => 6
island', => 6
"
7
chars => 7
#________________________________________________________ => 7
$poster => 7
$time => 7
"@_"; => 7
$name => 7
$mailprog!\n"; => 7
-> => 7
simultaneous => 7
padding => 7
main => 7
dir => 7
ostapenko, => 7
"subject: => 7
-t") => 7
each => 7
($in{'address'} => 7
filename => 7
$error => 7
color=red>$in{'address'} => 7
$str => 7
then => 7
dbi; => 7
convert => 7
extract => 7
unix => 7
printf => 7
open(list,"$file"); => 7
"$_ => 7
exists => 7
(@l) => 7
point => 7
try => 7
$file => 7
version => 7
#____________________________ => 7
years => 7
what => 6
grep => 6
id => 6
" 6
"company => 6
m/[\\\/]$/; => 6
$a => 6
web => 6
1, => 6
%d => 6
would => 6
value="$currentdir"> => 6
_| => 6
&message; => 6
want => 6
matching => 6
$row => 6
exist => 6
$header => 6
-size=>1, => 6
; => 6
mn => 6
"$0: => 6
dbi->connect("dbi:mysql:perlnow", => 6
$password => 6
records => 6
after => 6
psw, => 6
s/%(..)/pack("c", => 6
$outname => 6
$padded => 6
submit('submit'), => 6
tr => 6
"
=> 6

6
database: => 6
@list => 6
split/\|/; => 6
&printfiledownloadform; => 6
string: => 6
"number => 6
windows => 6
timelocal(localtime); => 6
1.0 => 6
how => 6
their => 6
but => 6
parameters => 6
username => 6
carolina', => 6
"cd => 6
"perlnow", => 6
days => 6
(us)' => 6
'north => 6
$1; => 6
replace => 6
$i; => 6
dakota', => 6
type => 6
cgi; => 6
lwp::simple => 6
hex($1))/ge; => 6
below => 6
call => 6
argument => 6
lwp::simple; => 6
"description => 6
$p => 6
parse => 6
"unable => 6
rohitab => 6
'; => 6
'korea => 6
size=-1> => 6
db => 6
$currentdir) => 6
$| => 6
$x++; => 6
name: => 6
module => 6
guinea' => 6
private => 6
$padded, => 6
$q => 6
white; => 6
size=-1>", => 6
connected => 6
.. => 6
columbia', => 6
sent => 6
(@entries) => 6
":", => 6
$in{$key} => 6
do => 6
confirm => 6
users => 6
type=\"hidden\" => 6
popup_menu => 6
"\n
"; => 6
1: => 6
$options => 6
$userfile => 6
through => 6
none; => 6
if(!$winnt) => 6
nt => 6
$transferfile => 6
(<>) => 6

", => 6
tags => 6