#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); print "Content-type:text/html\n\n"; open(INF,"data.txt") or dienice("Couldn't open survey.out for reading: $! \n"); @data = ; close(INF); foreach $i (@data) { chomp($i); ($info) = split(/\ /,$i); # Now we can print out a web page summarizing the data. print"Input from Visitors"; print ""; print " Data is: "; print $info; print "

"; print ""; sub dienice { my($msg) = @_; print "

Error

\n"; print $msg; exit; } }