use strict;
use Tk;
my $mw = MainWindow->new();
$mw->Button(
    -text    => 'Start Word',
    -command => sub { system 'start WINWORD.EXE' },
)->pack;
MainLoop();