use Tk;
use strict;

my $poss_answer = 'Ok';
my $answer = 'Ok';

my $mw = MainWindow->new;

$mw->Radiobutton(
            -text => $poss_answer,
            -value => $poss_answer,

            -variable => \$answer,
            -padx => 10,
            -command =>
                    sub {
warn "TkAns82: '$answer'\n";
                        my ( $path_of_wp, $abs_pgm_log_file ) = (
                            'C:\vim\vim61\gvim.exe',
                            'C:\vim\vim61\README.txt',
                        );

                        $mw->iconify();
                        my $found_problem
                            = system $path_of_wp, $abs_pgm_log_file;
                            #= 'dummy';


                        $mw->deiconify();

                        $mw->destroy();
                    },

        )->pack(
            -side => 'bottom',
        );

$mw->withdraw; #avoid the jumping window bug 
$mw->Popup;

MainLoop();