#!/usr/bin/perl

use strict;
use warnings;
use Win32::GuiTest qw/FindWindowLike SetForegroundWindow SendKeys/;

my @windows = FindWindowLike(0, 'Senza nome - Blocco note');
for (@windows) {
    SetForegroundWindow($_);
    my $x="Foo Bar Baz%fv";
    SendKeys($x);
}

__END__