use CGI qw/:standard/;
my $q = new CGI;

my $choice = param('choice') || 1;

##</code><code>##

my $choice = param('choice') // 1;

##</code><code>##

my $choice = param('choice');
$choice = 1 unless defined $choice;