Select Code to Download

use open ":std", ":locale";
use feature qw( say );
...
   say uc( $ss_d );                    # SS
   say uc( $ss_u );                    # SS
}