Select Code to Download

my $tempport;
if ( $args{DOUBLE_BYTE} =~ /y/i ) {
...
else {
    $tempport = SB_CATPORT
}