my $RB_Prod = $W1->AddRadioButton(
    -text    => "Production",
    -name    => "RB_PROD",       
    -pos  => [ 100, 10 + 30*($PgmCtr-1)],
    -width   => 90,
    -height  => 20,
    -foreground => 0xFFFFFF,
    -background => 0xFF7F7F,
      );

my $RB_Test = $W1->AddRadioButton(
    -text    => "Test",
    -name    => "RB_TEST",       
    -pos  => [ 200, 10 + 30*($PgmCtr-1)],
    -width   => 60,
    -height  => 20,
    -foreground => 0xFFFFFF,
    -background => 0xFF7F7F,
      );