in reply to Snippet explanation please
my $tempport; if ( $args{DOUBLE_BYTE} =~ /y/i ) { $tempport = DB_CATPORT; } else { $tempport = SB_CATPORT; } [download]