use strict;
use warnings;

use Tk;
use Tk::widgets qw(RadiobuttonGroup);
my $mw = MainWindow->new;

$mw->Label(
    -text    => 'Package Selection',
    -justify => 'left'
)->pack;

my $package = 'normal';
my $radiobuttongroup = $mw->RadiobuttonGroup (
    -list        => ['  normal', '  pckg_A', '  pckg_B'],
    -orientation => 'vertical',
    -variable    => \$package,
    -command     => sub { print $package, "\n"; }
)->pack;

MainLoop;