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