#!/usr/bin/perl -w

use Win32::API;
my $find = new Win32::API("user32", "FindWindowA", 'PN', 'N')
	or die "No find";
my $send = new Win32::API("user32", "SendMessageA", 'NNNN', 'N')
	or die "No send";

# Find any Word window
my $wordhandle=$find->Call("OpusApp",0);
print "Handle: ",$wordhandle,"\n";
$send->Call($wordhandle, 0x0010, 1, 0) if ($wordhandle);