Select Code to Download

my $tab = $notebook->add('page1', -label=> 'Package');
my $mwt_pckg = $tab1->Frame()->pack ;

 my $package = 'normal';
foreach my $type (qw(normal pckg_A pckg_B)) {
    $mwt_pckg->Radiobutton(
...
        -variable => \$package,
#)->grid(-sticky => 'w', -column => 1, -row => 2);
    )->grid(-sticky => 'w', -column => 1, -row => 2, -columnspan=>20, 
+-padx => 50, );