Select Code to Download

use strict;
use Tk;
...
    -command => sub { system 'start WINWORD.EXE' },
)->pack;
MainLoop();