#!/usr/bin/perl -T
print "content-type:text/html\n\n";
print qq~
Thanks, you may go now
~;
open (COMPANY,"./data/long_list_of_company_names.txt");
while () {
# do something really exciting here like create
# a report and write it to the web space
# do lots of error checking too, not detailed here
}
close (COMPANY);
# no more output, user has gone, but it would maintain a log of activity