use Win32::GuiTest qw/SendMessage/;
use Win32::FindWindow;
$window = find_window( basename => 'winword.exe' );
SendMessage($window->hwnd,WM_CLOSE,0,0);