#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
my $q = new CGI;
    
my $choice = param('choice') || 1;