Select Code to Download

#modern way
#
...
             ? $cgi->param( 'sortby' )
             : 'name'
             );

my $variable = test1() ? value1
              : test2() ? value2
              : test3() ? value3
              :           default_value
              ;

use Readonly;
Readonly my %sql_defaults => ( sortby => 'name',
...
#
$sql_args{$_} = $cgi->param( $_ ) || $sql_default{$_}
    for qw( sortby ascdesc letter );