#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;
$mw->geometry("300x300");

my $topics3 = $mw->Radiobutton(
        -text =>'Selection 3',
        -value => '3',
        -command => sub {
            $mw->Optionmenu( 
                -options => [ 6, 6, 6 ],
            )->pack();
        },
    )->pack();

MainLoop;