use strict ;
use warnings ;

use Win32::OLE ;
use Time::HiRes qw( sleep ) ;
my $ex = Win32::OLE->new('WScript.Shell') or die "oops\n";

$ex->run('Notepad') ;
sleep(0.1) ;
$ex->sendkeys("Hello World!") ;