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
"
"; => 25
':standard'; => 24
(file, => 24
field => 23
| 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 "company => 6 $a => 6 %d => 6 &message; => 6 want => 6 valid => 6 matching => 6 $row => 6 -size=>1, => 6 data::dumper; => 6 mn => 6 "$0: => 6
|