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