Riverweb Data

#!/usr/bin/perl # parsedata.cgi print "Content-type: text/html\n\n"; print "\n\nRiverweb Data\n\n\n"; $data = $ENV{'QUERY_STRING'}; $x = 0; open (DATA, "<$data"); while () { chop; $x++; print "$x $_
\n"; } close (DATA); print "\n";