use Tk;
use Tk::Wizard;
my $wiz = new Tk::Wizard (-title => "Kickstart Wizard");
my $oschoice='test';
$wiz->addSingleChoicePage(
  -text => 'Choose OS',
  -variable => \$oschoice,
  -choices =>
    [
      {
       -title => 'Linux',
       -value => 'Lin'
      },
      {
       -title => 'Windows',
       -value => 'Win',
       -selected => 1,
      },
    ],
  -preNextButtonAction  => sub { warn $oschoice; },
);
$wiz->addTextFramePage(
  -title => 'Partitioning',
  -boxedtext => "/mirror/inifiles/partition.$oschoice"
);
$wiz->Show;
MainLoop;