#!/opt/bin/perl use CGI qw(:standard); import CGI; print "Content-type: text/html\n\n"; print "\n"; print qq+

+; $name = ¶m('Name'); $likes = ¶m('likes_niquil'); $times = ¶m('times'); $comment = ¶m('comments'); open (FILE, ">> 71.txt"); print FILE $name; print FILE "::"; print FILE $likes; print FILE "::"; print FILE $times; print FILE "::"; print FILE $comment; print FILE "\n"; close FILE; open (FILE, "71.txt"); print qq+

+; while ($record = ){ ($inname, $inlikes, $intimes, $incomment) = split("::", $record); print ""; print ""; print "
"; } print "

Name	Likes NiQuil	Times Taken	Comment
$inname	$inlikes	$intimes	$incomment

"; close FILE;