print "Content-type: text/plain\n\n";
 
  # print text file here

##</code><code>##

  my $q = CGI->new();

  # handle any CGI parameters, set other headers, etc.

  print $q->header( { -type=>'text/plain' } );

  # print text file here