http://www.byte.com/art/9510/sec9/cmt1.pl (PC Press Internet CD, 03/1996)

print "Content-type: text/html\n\n"; $URL = $ENV{'HTTP_REFERER'}; ISSUE = $ARGV[0]; SECTION = $ARGV[1]; TITLE = $ARGV[2]; $ISSUE =~ s/&/and/g; $SECTION =~ s/&/and/g; $TITLE =~ s/&/and/g; $ISSUE =~ s/\'//g; $SECTION =~ s/\'//g; $TITLE =~ s/\'//g; ($se = $SECTION) =~ s/_/ /g; ($ti = $TITLE) =~ s/_/ /g; print ""; print "Comment on '$ti'"; print ""; print "

Comment on $ti

"; print "

BOMB's Away!"; print "

"; print "About This Article"; print "
How useful? [ "; print "Essential | "; print "Pretty useful | "; print "So-so | "; print "Not so useful | "; print "Worthless ]"; print "
How interesting? ["; print "Spellbinding | "; print "Pretty good | "; print "So-so | "; print "Not so good | "; print "Zzzzzz... ]"; print "
About You"; print "
Email address: "; print " Real name: "; print "
I read BYTE: ["; print "Always |"; print "Often |"; print "Sometimes |"; print "Rarely |"; print "Never ]"; print "
I am a: ["; print "Rocket scientist |"; print "Nerd |"; print "Power user |"; print "Average user |"; print "Beginner ]"; print "
I use BYTE mainly for: ["; print "Work |"; print "Education |"; print "General interest ]"; print "
I wish BYTE did more: ["; print "Technology |"; print "Products |"; print "Hands-on |"; print "Case studies |"; print "News ]"; print "
Your thoughts"; print "
"; print ""; print "
"; print " "; print ""; print ""; #foreach $key (keys %ENV) # { # print "
", $key, ":", $ENV{$key}; # } print "";