#!/usr/bin/perl
require CGI;
use CGI;
$cgi = new CGI;
#
# get the file to print
#
$f=$cgi->param('f');
print "Content-type: text/html", "\n\n";
print "<html>\n";
print "$f<p>";
#
# they can only dump the file if it ends in .txt
#
if (!$f =~ /.*\.txt$/) {
 exit;
}
open(COUNTERS,$f);
while(<COUNTERS>) {
 chomp($_);
 print "$_ <br>";
}
close(COUNTERS);
exit;