I'm using " defined $thing && $thing ne '' " stuff too much, so, I've wrapped this in a sub :)

sub zot ($) { # zero_or_true
   defined($_[0]) && $_[0] ne '';
}

# later...

my $choice = zot param('choice') ? param('choice') : 1;
[download]

HTH