use strict;
use warnings;
use Win32;
use Win32::Process;
use Win32::GuiTest;

my $fileName = 'delme.txt';
my $filePath = "$ENV{TEMP}\\$fileName";
my $app      = "$ENV{SystemRoot}\\Notepad.exe";
my $cmd      = "notepad $filePath";
my $ProcessObj;

unlink $filePath;
Win32::Process::Create ($ProcessObj, $app, $cmd, 0, NORMAL_PRIORITY_CLASS, ".")
    || die ErrorReport ();

#FindWindowLike($window,$titleregex,$classregex,$childid,$maxlevel)
my @windows = Win32::GuiTest::WaitWindow (qr"^Notepad"i, 3);

die "Expected to find Notepad's new document dialog\n" if ! @windows;
Win32::GuiTest::SetForegroundWindow ($windows[0]);
Win32::GuiTest::SendKeys ("%y");

@windows = Win32::GuiTest::WaitWindow (qr"^$fileName"i, 3);
die "Expected to find Notepad\n" if ! @windows;
Win32::GuiTest::SetForegroundWindow ($windows[0]);
Win32::GuiTest::SendKeys ("Hello World%fs%fx");


sub ErrorReport {
    print Win32::FormatMessage (Win32::GetLastError ());
}