Select Code to Download

              if ( $xkey eq 'ptot' ) {
                if ( ${ "x_$bid$skey" } ne '' ) { uitpak ( "x_$bid$ske
+y", 't_', '', 'upsa06' ); }
...
            @a_opti = split ( ',', $$xkey );

            foreach ( @a_opti ) { $valn.= $_ . '=' . e51s ( $ { "$up$_
+" }, '', 'upsa_00', '' ) . ','; }