#!/usr/bin/perl -w
use strict;
use CGI qw(param);
my $choice = param("choice");
print "content-type: html/text\n\n";
if(!$choice) { print "
1. New discussion thread
2. Relevant information
"; exit }
if($choice == 1) { print "
Welcome to new discussion";exit }
if($choice == 2) { print "
Welcome to relevant information";exit }